MacroNaam aan foto geven

[bo69]

Kan iemand mij hierbij helpen.

ActiveSheet.Pictures.Insert( _
"C:\Users\m\Pictures\doel\foto\Foto5.jpg").Select

Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 75
Selection.ShapeRange.Width = 150
Selection.ShapeRange.Rotation = 0#
Selection.Name = "Afbeelding 5"
Macro.Name = Foto5Weg() "Aan de foto wil ik een macro verwijzing geven. Zodat als ik op de foto klik, dat deze wordt verwijderd"
Selection.Cut
Range("I9").Select
ActiveSheet.Paste
Range("I9").Select

groetjes Bo

 

[alphamax]

Selection.OnAction = "Module1.Foto5Weg"

Deze code doet hetzelfde zonder al de "selection" van de macro-recorder.

Public Sub Main()
    With ActiveSheet.Pictures.Insert("C:\Users\Name\Pictures\test.png")
        .ShapeRange.LockAspectRatio = msoTrue
        .ShapeRange.Height = 75
        .ShapeRange.Width = 150
        .ShapeRange.Rotation = 0#
        .Name = "Afbeelding 5"
        .OnAction = "Module1.Foto5Weg"
        .Top = Range("I9").Top
        .Left = Range("I9").Left
    End With
End Sub

 

[bo69]

Bedankt werkt perfect.
maar moest wel select er voor zetten, zonder datr werkte het niet

 

[bron]

Verplaatst naar VBA