VBA Gitternetzlinien und objekte auswählen ein- und ausschalten

[Ernie_Excel]

Guten Tag.

Ich habe eine Excel-Arbeitsmappe, in der werden über eine Userform Shapes in das Tabellenblatt eingefügt. Das Ganze dient der systematischen grafischen Darstellung.

ES gibt in Excel den Befehl Objekte auswählen. Dieser bewirkt, dass Shapes wie in PowerPoint angeklickt und durch ziehen auch mehrere Objekte markiert werden können. Unglücklicherweise wird der Modus Objekte auswählen durch einen Doppelklick beendet. 

Diese Event soll in der Userform den Toggle-button zurücksetzen.leider klappt es nicht.

Vielleicht hat jemand von Euch eine Idee?

Weiter existiert eine Checkbox zum ein und ausschalten der GItternetzlinien. Diese Optionen lassen sich im Ribbon unten Seitenlayout und OPtionen finden. Ein Umschalten über Ribbon aktualisiert unglücklicherweise die Checkbox.

anbei eine abgespeckte datei.

[snb]

Lösche Modul1.
Verzichte auf 'Call'.

Ersetze alle Code im Userform von :

Code:

Private Sub CheckBox1_Click()
  ActiveWindow.DisplayGridlines = CheckBox1.Value
End Sub

Private Sub ToggleButton1_Click()
  Application.CommandBars("Selection and Visibility").Visible = ToggleButton1
End Sub

[Ernie_Excel]

Hallo snb,

vielen Dank für Deine Vorschläge.

Leider wird nun jedoch nicht mehr aktualisiert. ob die Gitternetzlinien über Ribbon ein- und ausgeschaltet werden.

Das Makro für den Togglebutton und die Funktion Objekte markieren funktioniert leider überhaupt nicht.

VIelleicht eine Idee?

[schauan]

Hallöchen,

Du kannst Dir mit nachfolgendem Code die Bezeichnungen ausgeben lassen und danach mit dem Code vergleichen und ggf. korrigieren.

Code:

Sub test()
For icnt = 1 To Application.CommandBars.Count
Cells(icnt, 1).Value = Application.CommandBars(icnt).Name
Cells(icnt, 2).Value = Application.CommandBars(icnt).NameLocal
Next
End Sub