Gruppe
Grafik
Problem
Wie kann ich in einem Arbeitsblatt ein Pfeilmenü anlegen. Bei Anklicken eines Pfeils soll eine Grafik aus einem ausgeblendeten Arbeitsblatt angezeigt werden und der Pfeil soll seine Farbe ändern.
StandardModule: basMain
Sub BildEinfuegen()
Dim pct As Shape
For Each pct In ActiveSheet.Shapes
If pct.Type = msoPicture Then
pct.Delete
End If
Next pct
For Each pct In ActiveSheet.Shapes
If pct.Type = msoAutoShape Then
pct.Fill.ForeColor.SchemeColor = 57
pct.TextFrame.Characters.Font.ColorIndex = 3
End If
Next pct
With ActiveSheet.Shapes(Application.Caller)
.Fill.ForeColor.SchemeColor = 53
.TextFrame.Characters.Font.ColorIndex = 6
End With
Worksheets(Right(Application.Caller, 1) + 2).Range("A1:E10") _
.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=Range("C1:C10")
End Sub
Sub Verbergen()
Dim iCounter
For iCounter = 3 To Worksheets.Count
Worksheets(iCounter).Visible = xlVeryHidden
'Worksheets(iCounter).Visible = True
Next iCounter
End Sub