Hallo,
bin mir gerade unsicher, weil ich es nicht ausprobieren kann, doch wenn ich es richtig in Erinnerung habe, werden einzelne Shapes so angesprochen:
Worksheet.Shapes(">>ShapeName<<")
bei dir also:
Anchor:=ActiveSheet.Shapes("CommandButton14")
oder eben:
Anchor:=ActiveSheet.OLEObjects("CommandButton14").Object
Ob man allerdings OLEObjects als Anchor benutzen kann, weiß ich nicht. (Hier: https://learn.microsoft.com/de-de/office/vba/api/excel.hyperlinks.add steht, dass es ein Range- oder Shape-Objekt sein muss).
War das irgendwie hilreich?
Grüße, Ulrich
|