![]() |
| VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
| Von |
RK |
| Datum |
10. Februar 2016 um 11:30:20 |
| Frage |
Hallo,
ich möchte per VBA-Script ein Diagramm (Shapes) aus Excel in Word kopieren und automatisch auf die Größe des in meiner Word-Textvorlage angelegten Textfelds anpassen.
Der Export der Grafik von Excel nach Word funktioniert, aber die Grafik ist größer als das Textfeld und ragt daher darüber hinaus.
Anbei der Programmcode (vereinfacht dargestellt):Dim WordApp As Object
Set WordApp = CreateObject("Word.Application") 'Word als Object starten
WordApp.Documents.Open "D:\Vorlage.docx"
WordApp.Visible = True
ActiveSheet.Shapes.Range(Array('Excel_Diag")).Select
Selection.Copy
With WordApp
.ActiveDocument.PageSetup.Orientation = 0
.ActiveDocument.Shapes.Range(Array("Ex_Diagr")).Select
.Selection.Paste
End With Was muss ich anpassen / ergänzen, damit die Excel-Grafik automatisch auf die Größe des Word-Textfeld angepasst wird. Die Grafik kann für das Textfeld zu hoch und/oder zu breit sein, wobei das Höhen-/Seiteneverhältnis der Grafik beibehalten werden muss.
Danke für Eure Unterstützung! |
|
| [ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
|
| Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|
Zum Seitenanfang