VBA Makro Diagrammgrößen
26.08.2006 19:06:28
Peter
ich habe ein Code geschrieben der über ein Steuerelement gestartet wird. 5 Kreisdiagramme erscheinen und verschwinden.
Ich möchte, daß die Größe der Zeichnungdfläche und der Diagrammfläche beim aufrufen festgelegt ist.
Leider läuft mein Code nicht und ich glaube nicht, daß ich über "PlotArea" Zeichnungsfläche und Diagrammfläche seperat ansteuern kann.
Wie ist es richtig?
Private Sub Daten_ueber_die_Pflanzung()
'durch Häckchen setzten in Checkbox22 "Daten über die Pflanzung", einblenden der Kreisdiagramme
With Application 'beschleunigt Berechnung
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
With ActiveSheet
If .Shapes("Check Box 22").ControlFormat.Value = 1 Then
.ChartObjects("Diagramm 23").Visible = True
.ChartObjects("Diagramm 23").PlotArea.Width = 140
.ChartObjects("Diagramm 23").PlotArea.Height = 140
.ChartObjects("Diagramm 24").Visible = True
.ChartObjects("Diagramm 24").PlotArea.Width = 140
.ChartObjects("Diagramm 24").PlotArea.Height = 140
.ChartObjects("Diagramm 25").Visible = True
.ChartObjects("Diagramm 25").PlotArea.Width = 140
.ChartObjects("Diagramm 25").PlotArea.Height = 140
.ChartObjects("Diagramm 26").Visible = True
.ChartObjects("Diagramm 26").PlotArea.Width = 140
.ChartObjects("Diagramm 26").PlotArea.Height = 140
.ChartObjects("Diagramm 27").Visible = True
.ChartObjects("Diagramm 27").PlotArea.Width = 140
.ChartObjects("Diagramm 27").PlotArea.Height = 140
Else
.ChartObjects("Diagramm 23").Visible = False
.ChartObjects("Diagramm 24").Visible = False
.ChartObjects("Diagramm 25").Visible = False
.ChartObjects("Diagramm 26").Visible = False
.ChartObjects("Diagramm 27").Visible = False
End If
End With
With Application
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Grüße aus Berlin