VBA Diagramm grösse fixieren
23.11.2005 12:27:39
Christoph
Ich erstelle ein Diagramm mit VBA in einem neuen Fram. So weit habe ich das geschafft. Kann ich aber die grösse des Diagramms fixieren, dass es nicht auf die jeweilige Bildschirmauflösung ankommt, welcher Teil des Diagramms angezeigt wird?
Private Sub anzeigenKostenDiagramm()
On Error Resume Next
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("AnzeigeKosten").Range("A3:E6"), _
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="AnzeigeKosten"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Materialkosten"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Kosten in CHF"
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True
ActiveSheet.ChartObjects("Diagramm 1").Activate 'gif-Datei erstellen
ActiveChart.Export "DiagrammMaterialKosten.gif"
With frmAnzeigeKosten.ImgDiagramAnzeigeKostenVariante1
.Picture = LoadPicture("DiagrammMaterialKosten.gif")
.AutoSize = True
End With
Worksheets("Start").Activate
frmAnzeigeKosten.Show
Kill "DiagrammMaterialKosten.gif" 'Löschen der Temp gif-Datein
Application.ScreenUpdating = True
Sheets("AnzeigeKosten").ChartObjects(1).Delete 'Löschen der Diagramme
End Sub
Anzeige