AW: Diagramm vergroessern
15.02.2010 09:34:41
Renee
Hi Helge,
Zuerst Diagramm gross darstellen. Dann rechtsklick auf Diagramm und Makro zuweisen mit folgendem Code (in ein Modul):
Sub DiagrammGrossKlein()
Static dblHeight As Double
Static dblWidth As Double
Const cDblHeightSmall = 90 ' Anpassen (kleine Höhe)
Const cDblWidthSmall = 160 ' Anpassen (kleine Breite)
With ActiveSheet.ChartObjects(Application.Caller)
If dblHeight = 0 Then dblHeight = .Height
If dblWidth = 0 Then dblWidth = .Width
.Height = IIf(.Height = dblHeight, cDblHeightSmall, dblHeight)
.Width = IIf(.Width = dblWidth, cDblWidthSmall, dblWidth)
End With
End Sub
Kleine Höhe/Breite ggf. im Code anpassen!
Klick auf Diagramm wechselt nun zwischen Gross und Klein.
GreetZ Renée