Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Grafiken aus ausgeblendeten Blättern einblenden

Gruppe

Grafikimport

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und Grafikimport