CommandBars.ExecuteMso - VBA-Code funktioniert nicht

501
Michael Froboese

Ich versuche, ein Makro zu erstellen, um den Datei-Explorer "Bild ändern" aufzurufen. Im Grunde möchte ich nur ein Makro, das dasselbe tut, als Rechtsklick auf ein ausgewähltes Bild und dann auf dieses Bild:

Rechtsklick> Bild ändern> Aus einer Datei ...

Ich möchte das Bild nicht zu etwas Bestimmtem ändern. Ich möchte nur, dass das Makro diesen Bildschirm öffnet:

Dieser Bildschirm

Dies ist der Code, den ich habe. Basierend auf meinen Nachforschungen dachte ich, das wäre das, was ich brauchte:

Sub ChangePicture() ActiveSheet.Shapes.Range(Array("PIC_SUBJECT")).Select Application.CommandBars.ExecuteMso ("PictureChange") End Sub

Beim Ausführen des Makros bekomme ich jedoch folgende Fehlermeldung:

Error

Jede Hilfe dazu wäre sehr dankbar! Vielen Dank.

0

0 Antworten auf die Frage

Verwandte Probleme