Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellenblattgrafik ein/ausblenden und verschieben

Gruppe

Ansicht

Problem

Die Grafik soll auf Schaltflächendruck ein/ausgeblendet bzw. verschoben werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub MoveGrafik()
   Dim pct As Picture
   Dim iRow As Integer, iCol As Integer
   Set pct = ActiveSheet.Pictures(1)
   iRow = pct.TopLeftCell.Row
   iCol = pct.TopLeftCell.Column
   If iCol = 4 Then
      iCol = 1
      iRow = iRow + 1
      If iRow = 6 Then iRow = 1
   Else
      iCol = iCol + 1
      pct.Left = Cells(iRow, iCol).Left
      Exit Sub
   End If
   pct.Left = Cells(iRow, iCol).Left
   pct.Top = Cells(iRow, iCol).Top
End Sub

Sub VisibleGrafik()
   Dim pct As Picture
   Set pct = ActiveSheet.Pictures(1)
   pct.Visible = Not pct.Visible
End Sub

    

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