Plaatsen van een shape in een specifieke cel.

[Onweerwolf]

Hoi,

Ik heb het volgende stukje code:

ActiveSheet.Shapes("Rounded Rectangle 1").Top = 119
ActiveSheet.Shapes("Rounded Rectangle 1").Left = 773

Dit plaatst mijn shape op de gewenste plaats in mijn bestand en werkt op zich goed.

Mijn vraag is echter of bovenstaande kan worden aangepast op zo'n manier dat de code de shape niet plaatst op een specifiek punt in het hele bestand maar op een specifiek punt in een specifieke cel. Dus bijvoorbeeld ipv op coördinaten 119,773 van het hele bestand op coördinaten 5,3 van cel EN4.

Weet iemand of dit kan en zo ja hoe?

 

[edmoor]

Een shape is geen inhoud van een cel en kan als zodanig ook niet in een cel worden geplaatst. Wel kun je de coördinaten van een cel ophalen en die gebruiken om de plaats van je shape te bepalen. Die coördinaten kun je zo opvragen:

Dim clLeft As Double
Dim clTop As Double
Dim clWidth As Double
Dim clHeight As Double

Dim cl As Range
Set cl = Range("A1")

clLeft = cl.Left
clTop = cl.Top
clHeight = cl.Height
clWidth = cl.Width

 

[Onweerwolf]

Dat is dan ook precies wat ik wil.

 

[edmoor]

Ik heb net m'n reactie wat aangevuld