Das bekannte Programm zur optimalen Vorbereitung auf die theoretische Führerscheinprüfung
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 ]
Antworten
E10: Excel Grafik in Word Textfeld kopieren und Größe anpassen - RK 10. Februar 2016 um 11:30:20

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Excel 2010 (VBA 6)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015