Afbeeldingen hernoemen zonder knoppen te hernoemen

[buitenvoort]

Goede avond.

In de bijlage een versimpeld bestandje met daarin een kaartje en een knop.
Tevens vba code die niet werkt.

Wat ik wil is dat de kaartjes worden hernoemd naar myshape 1 etc.
De knop mag niet worden hernoemd.

Kan iemand even kijken, hoe de code het goed doet.

thx

dennis

 

[edmoor]

Maak er eens dit van:

Sub check()
    Dim iCounter As Integer
    Dim pic As Shape

    For Each pic In ActiveSheet.Shapes
        If Left(pic.Name, 10) = "Afbeelding" Then
            iCounter = iCounter + 1
            pic.Name = "MyShape" & iCounter
        End If
    Next pic
End Sub

 

[cow18]

Sub check()
'https://docs.microsoft.com/en-us/office/vba/api/office.msoshapetype
   Dim iCounter As Integer
   Dim Shp     As Shape
   Dim pic     As Shape

   For Each pic In ActiveSheet.Shapes
      Select Case pic.Type
         Case msoPicture
            MsgBox pic.Name & vbLf & pic.Type & vbLf & pic.TopLeftCell.Address
            iCounter = iCounter + 1
            If InStr(1, pic.Name, "My") = 0 Then pic.Name = "MyShape" & iCounter
      End Select
   Next pic

End Sub