Hi Forumler,
nach langer Abstinenz melde ich mich mal wieder mit einem kleinen Problemchen.
Zum Hintergrund:
Ich ziehe aus Access einen Abzug als xlsx ("Abzug"). Der Abzug soll final in einem Management-Bericht landen ("PPT"). Mittels einer weiteren Excel (Makro-Excel), bearbeite/formatiere ich den "Abzug", starte "PPT" und kopiere die im "Abzug" erstellten Diagramme in die "PPT" auf jeweils eine Folie (soweit, so gut). Gleichzeitig kopiere ich einen Auszug der Werte/Datenbasis der Diagramme als Tabelle aus "Abzug" auf die jeweilige Folie in "PPT" (ebenfalls soweit, so gut).
Jetzt zum Problem:
Ich bekomme in Abhängigkeit von der Menge der kopierten Positionen/Werte unterschiedliche Ergebnisse in PowerPoint. Bspw. Ich kopiere für das erste Diagramm die Tabelle mit 1 Wert -> Schriftgröße 18 in PowerPoint. Kopiere ich für ein anderes Diagramm mehrere Werte (x Zeilen in 2 Spalten) -> Schriftgröße 12 in PowerPoint...
Anbei der Code:
...
With PowerPoint
.Visible = True
.ActivePresentation.Slides(s).Select
wbTarg.Activate
Sheets(i).Select
Sheets(i).Range(Cells(2, 18), Cells(LastLineDUE, 19)).Copy
With .ActiveWindow
.View.PasteSpecial
.Selection.ShapeRange.Left = 300
.Selection.ShapeRange.Top = 150
.Selection.ShapeRange.Width = 200
.Selection.ShapeRange.Height = 50
Mit der ShapeRange bestimme ich die Position auf der Folie, wie kann ich aber bspw. Schriftart/-Größe formatieren?
Ich bedanke mich im Voraus für eure HIlfe,
Heiko
|