Es muss auch ein Objekt ausgewählt werden, von welchem die Eigenschaften angezeigt werden sollen.
Beispiel:
Du erstellst ein Rechteck in deinem Arbeitsblatt. Und via Code kannst du dieses Objekt auswählen (2. Zeile) und anschließend die Eigenschaften abfragen (3. Zeile)
Sub showProperties()
ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
Application.Dialogs(xlDialogObjectProperties).Show
End Sub