Afbeeeldingen automatisch terug op zijn startplaats plaatsen.

[pjseynaeve]

Goede avond,

Ben bezig met een excel op te maken met hyperlinks in verwerkt naar cellen in datzelfde werkblad.
Dit gebeurt door middel van 1 2 3 4 5 icoontjes.
Maar als ik die icoontjes willekeurig verplaats en ze daarna etrug op hun startpositie te krijgen via een macro krijg ik foutmelding:

Sub Test()
'
' Test Macro
'

'
    Selection.Cut
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("A2").Select
    ActiveSheet.Paste
    Range("F11").Select

Wie kan mij helpen en kan dit via een macro?

 

[edmoor]

Dit bijvoorbeeld in de ThisWorkbook sectie:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ActiveSheet
        .Shapes("Afbeelding 5").Left = 96
        .Shapes("Afbeelding 5").Top = 90
    
        .Shapes("Afbeelding 6").Left = 96
        .Shapes("Afbeelding 6").Top = 141
       
        .Shapes("Afbeelding 7").Left = 96
        .Shapes("Afbeelding 7").Top = 193
    End With
End Sub

 

[emields]

Volstond het antwoord hier niet? Had dan tenminste de beleefdheid dat ook te melden.

https://excelexperts.nl/forum/viewtopic.php?t=1369

 

[edmoor]

Niet zo netjes inderdaad.
Had mij ook werk bespaard.

 

[pjseynaeve]

Goeie morgen allen,

@emields,
Vertouwde het niet, omdat ik onderstaande melding kreeg.
Had misschien wel beter gereageerd op het ander forum. Daar heb ik wel de bal misgeslaan.

Bekijk bijlage 370135

Zal in de toekomst rekening mee houden.