Hallo Leute,
folgendes Problem: Ich zeichne (per Makro) ein Diagramm und plaziere es auf dem Tabellenblatt. Nun möchte ich mehrer Diagramme erstellen und plazieren, diese werden aber immer in verschiedener Größe (je nach Festergröße von Excel gezeichnet.
Kann man da irgendwie die Größe der Diagramme fixieren?
'Hier füge ich am Tabellenblatt ein neues Diagramm dazu.
Charts.Add
ActiveChart.ChartType = xlLineMarkers
'Hier plaziere ich das Diagramm auf dem Tabellenblatt
ActiveSheet.Shapes(DiagrammName).IncrementLeft -220#
ActiveSheet.Shapes(DiagrammName).IncrementTop -100#
unter ActiveChart.xxxx habe ich keinen Befehl für die Größe
des Diagramms entdecken können.
Gruß
Gerald
Hallo Gerald,
für Shapes gibt es noch die Methoden ScaleHeight und ScaleWidth evtl. kommst du mit denen weiter. Syntax findest Du unter EXCEL VB-Hilfe
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
für Shapes gibt es noch die Methoden ScaleHeight und
ScaleWidth evtl. kommst du mit denen weiter. Syntax findest Du
unter EXCEL VB-Hilfe
Die sind mir auch schon untergekommen (sorry, vergessen zu erwähnen).
Die Funktion verändert die Höhe/Länge doch nur prozentuell und nicht
absolut, soweit ich das verstanden habe.
Gruß
Gerald
folgendes Problem: Ich zeichne (per Makro) ein Diagramm und
plaziere es auf dem Tabellenblatt. Nun möchte ich mehrer
Diagramme erstellen und plazieren, diese werden aber immer in
verschiedener Größe (je nach Festergröße von Excel gezeichnet.
'Hier plaziere ich das Diagramm auf dem Tabellenblatt
ActiveSheet.Shapes(DiagrammName).IncrementLeft -220#
ActiveSheet.Shapes(DiagrammName).IncrementTop -100#
Hi Gerald,
ungetestet:
with ActiveSheet.Shapes(DiagrammName)
.top=120
.left=50
.height=150
.width=150
end with
Gruß
Reinhard