Vorm grote afhankelijk van waarde in cel

[Mde]

Hallo,

Is het mogelijk om de hoogte van een pijl (vorm) afhankelijk te maken van een waarde in "A1".
bv als waarde A1 = 1000 dan hoogte pijl 1 cm.
breedte maakt nog niet zoveel uit dat mag vaste waarde zijn.

 

[edmoor]

Dat kan met:

Shapes("Up Arrow 1").Height = [a1] * 0.028346

 

[gast0660]

IK kom op zoiets.
naam van de pijl is gewoon pijl, origineel, niet.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim mijnhoogte As Double
    Dim mijnpijl As Shape
    mijnhoogte = Sheets("Blad1").[A1] * 0.028346
    Set mijnpijl = ThisWorkbook.Sheets("Blad1").Shapes("pijl")
    With mijnpijl
        .Height = mijnhoogte
    End With
    Set mijnpijl = Nothing
End Sub

 

[snb]

Ik zou de grootte ook aanpassen.

 

[HSV]

Veel te veel van het goede @gast0660.
In een worksheet_change met maar een blad hoef je niet te verwijzen naar het blad.

En als er maar een shape is is de code van @edmoor voldoende.

Private Sub Worksheet_Change(ByVal Target As Range)
 Shapes(1).Height = [a1] * 0.028346
end sub

 

[Mde]

Alvast bedankt voor de reacties ga hier morgen naar kijken. Ziet er in ieder geval goed uit.