ich bin gerade voll am verzweifeln. Ich möchte mehrere Shapes (eine Navigationsleiste) erstellen deren Hintergrund grau, Schrift Standard und schwarz ist. Wenn ich eines der Shapes anklicke soll mir das gewünschte Tabellenblatt angezeigt werden. Die Hintergrundfarbe vom Shape sollte dann weiß werden, die Schrift Fett und der Rand soll einen Schatten erhalten. Praktisch so wie in meinem Beispiel.
Ich habe so mir so was schon mal gebastelt aber das ist Jahre her und ich komme einfach nicht mehr drauf. Ich habe auch einen Code dazu im Netz gefunden aber mit dem komme ich leider auch nicht weiter. Kann mir hierbei bitte jemand helfen?
Beispiel Code:
'------------------- SHOW HIDE BUTTONS -----------------
Sub btnSearchMetadata_Click()
strButtonCaption = ActiveSheet.Shapes("btnSearchMetadata").TextFrame.Characters.Text
If strButtonCaption = "-" Then
ActiveSheet.Shapes("btnSearchMetadata").TextFrame.Characters.Text = "+"
Range("ShowHide_SearchMetadata").EntireColumn.Hidden = True
Else
ActiveSheet.Shapes("btnSearchMetadata").TextFrame.Characters.Text = "-"
Range("ShowHide_SearchMetadata").EntireColumn.Hidden = False
End If
End Sub