Hallo zusammen

Ich habe folgenden Code gefunden um einen Tooltiptext einer Shape hinzuzufügen. Das funktioniert super ausser mit Commanbuttons (Active-X)

Sub AddToolTip()
  
  Dim selectedShapes As Shape
  Dim toolTipText As String
  
  toolTipText = "1. Test" & vbCr & "2. Test" & vbCr & "3. Test"
                                      
  For Each selectedShapes In Selection.ShapeRange
  
    ActiveSheet.Hyperlinks.Add _
        Anchor:=selectedShapes, _
        Address:="", _
        ScreenTip:=toolTipText
  Next
  End Sub

Nun möchte ich aber diesen TooltipText direkt einer Shape zuweisen, also nicht über die aktive Auswahl. Zum Beispiel fix dem Commanbutton14.
Das habe ich wie folgt umgemünzt:

  Sub AddToolTip14()
  
  Dim toolTipText As String
  
  toolTipText = "1. Test" & vbCr & "2. Test" & vbCr & "3. Test"
  
    ActiveSheet.Hyperlinks.Add _
        Anchor:=ActiveSheet.Shapes.Range(Array("CommandButton14")), _
        Address:="", _
        ScreenTip:=toolTipText

  End Sub

Das funktioniert ebenfalls wenn Anchor eine Zelle ist. Ich bringe es aber nicht hin Anchor auf eine Shape zu beziehen wie ein Commanbutton.