VBA-Beispiel 112
mail schreiben
mail schreiben

Größe und Position aller Diagramme festlegen

In diesem Beispiel wird die Größe und Position aller Diagramme einer Exceltabelle festgelegt.

Alle Diagramme erhalten die gleiche Breite und Höhe und werden dann untereinander angeordnet.

Die Tabelle wird über ihren Codenamen angesprochen (wksDia).
Public Sub DiagrammeFormatierenAnordnen()
Dim i As Byte
Dim intHoch As Integer, intAbstand As Integer 

On Error GoTo Hell

intHoch = 200
intAbstand = 10

' wksDia = Codename der Tabelle

For i = 1 To wksDia.ChartObjects.Count
  With wksDia.ChartObjects(i)  
    .Height = intHoch
    .Width = 400
    .Left = 300
    .Top = intHoch * i - intHoch + intAbstand * i
  End With
Next i

Exit Sub

Hell:
  MsgBox "FehlerNr.: " & Err.Number & _
         vbNewLine & vbNewLine & _
         "Beschreibung: " & Err.Description, _
         vbCritical, "Fehler"
End Sub

Download:   vba112.zip