Grafik per Makro verlinken.
Karl
ich verwende folgendes Userform und Makro um beim Klicken auf ein Diagramm innerhalb einer Exceldatei, selbiges Diagramm als Vollbild anzeigen zu lassen (siehe unten).
Was ich suche: Wie kann ich es erreichen, dass beim Klicken auf eine beliebige Zelle z.B B5 ein beliebiges Diagramm innerhalb der Exceldatei im gleichen Sinn (mit Vollbild) geöffnet wird und beim Klicken wieder geschlossen?
Vielen Dank im Voraus für Eure Hilfe!
Karl
## Allgemeines Modul
Sub Variante1()
Dim Diagramm As ChartObject
Dim lngWidth As Long, lngHeight As Long
Set Diagramm = Tabelle1.ChartObjects(1)
Application.ScreenUpdating = False
With Diagramm
lngWidth = .Width
lngHeight = .Height
.Height = Application.Height
.Width = Application.Width
.Chart.Export Filename:="C:\Temp\Diagramm.gif"
.Height = lngHeight
.Width = lngWidth
End With
Application.ScreenUpdating = True
UserForm1.Show
End Sub
## Userform mit hinterlegtem Code
Private Sub UserForm_Initialize()
Me.Height = Application.Height
Me.Width = Application.Width
Me.Picture = LoadPicture("C:\TEMP\Diagramm.gif")
Me.PictureSizeMode = fmPictureSizeModeStretch
End Sub
Private Sub UserForm_Click()
Unload Me
End Sub