Welke picture is geselecteerd?

[ReneVBA]

Hallo,

Ik heb in excel een plaatje neergezet door onderstaande macro:

Sub InsertPicture(PictureFileName As String, TargetCell As Range, _
    CenterH As Boolean, CenterV As Boolean, macroToSet As Variant)
' inserts a picture at the top left position of TargetCell
' the picture can be centered horizontally and/or vertically
Dim p As Object, t As Double, l As Double, w As Double, h As Double

    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    ' import picture
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    ' determine positions
    With TargetCell
        t = .Top
        l = .Left
        If CenterH Then
            w = .Offset(0, 1).Left - .Left
            l = l + w / 2 - p.Width / 2
            If l < 1 Then l = 1
        End If
        If CenterV Then
            h = .Offset(1, 0).Top - .Top
            t = t + h / 2 - p.Height / 2
            If t < 1 Then t = 1
        End If
    End With
    ' position picture
    With p
        .Top = t
        .Left = l
    End With
    
    If macroToSet = "" Then
        'leave it empty and do not attach a macro
    Else
        p.OnAction = macroToSet
        p.Name = "rene"
    End If

End Sub

Waar nu staat : p.name = "rene" wordt een unique naam die ik in de methode mee gaat nemen.

Nu heb ik het volgende probleem. Als ik 10 van deze plaatjes in excel laat zetten met verschillende namen, hoe weet ik dan, als ik op een plaatje druk, welke het is?

Wat ik wil doen is de regel waarin het plaatje stond, verwijderen!

iemand een idee?

 

[Wigi]

Hoi

Je kan gebruik maken van de string die je krijgt bij Application.Caller. Dit zet je als code in de macro die je aanroept bij het klikken op de afbeelding.

Wigi

 

[ReneVBA]

Super!!

Super! dit werkt! harstikke bedankt!:thumb:

Groeten,
Rene