Excel Diagramm in Word einfügen mit VBA
Schritt-für-Schritt-Anleitung
Um ein Diagramm aus Excel in Word einzufügen, kannst Du folgendes VBA-Skript verwenden. Dieses Skript ermöglicht es dir, ein Diagramm zu kopieren und in ein neues Word-Dokument einzufügen, während Du auch die Größe des Diagramms anpassen kannst.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen > Modul, um ein neues Modul zu erstellen.
- Kopiere den folgenden VBA-Code in das Modul:
Sub CPChart()
Dim wkb As Workbook
Dim wordApp As Object
Set wkb = ActiveWorkbook
Sheets("Gesamtauswertung").Unprotect ("abcde")
Sheets("Gesamtauswertung").ChartObjects("EMA_Auswertung").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Set wordApp = CreateObject("word.application")
With wordApp
.Visible = True
.Documents.Add
.ActiveDocument.PageSetup.Orientation = 1
.Selection.Paste
'Größe des eingefügten Diagramm-Bildes anpassen
With .ActiveDocument.InlineShapes(1)
.LockAspectRatio = msoTrue
.Width = Application.CentimetersToPoints(20) 'Breite = 20 cm
End With
'Absatzschaltung einfügen
.Selection.TypeParagraph
'Seitenumbruch einfügen
.Selection.InsertBreak Type:=7 ' 7 = wdPageBreak
'Excel-Zellbereich kopieren und in Word als Grafik einfügen
wkb.Sheets("Gesamtauswertung").Range("A19:D21").Copy
.Selection.PasteSpecial Link:=False, _
DataType:=9, _
Placement:=0, DisplayAsIcon:=False
End With
Sheets("Gesamtauswertung").Protect ("abcde")
End Sub
- Schließe den VBA-Editor und führe das Makro über
Entwicklertools > Makros aus.
Häufige Fehler und Lösungen
-
Diagramm zu klein in Word: Stelle sicher, dass Du im Code die Breite des Diagramms anpasst. Nutze dafür die Zeile .Width = Application.CentimetersToPoints(20), um die Breite auf 20 cm zu setzen.
-
Fehler beim Einfügen: Überprüfe, ob der Name des Diagramms und der Arbeitsblattname korrekt sind. Ein falscher Name führt dazu, dass das Diagramm nicht gefunden wird.
Alternative Methoden
Wenn Du kein VBA verwenden möchtest, kannst Du auch manuell das Diagramm in Excel kopieren und in Word einfügen:
- Klicke mit der rechten Maustaste auf das Diagramm in Excel und wähle "Kopieren".
- Öffne Word und füge das Diagramm mit
STRG + V ein.
- Du kannst dann die Größe des Diagramms anpassen, indem Du die Ecken ziehst.
Diese Methode ist jedoch nicht so flexibel wie die Verwendung von VBA.
Praktische Beispiele
-
Balkendiagramm erstellen in Word: Verwende die Schritte von oben, um ein Balkendiagramm aus Excel in Word einzufügen, und passe die Größe an.
-
Diagramm ohne Verknüpfung einfügen: Um ein Diagramm in Word einzufügen, ohne dass eine Verknüpfung zu Excel besteht, stelle sicher, dass Du die Option Link:=False nutzt.
Tipps für Profis
-
Nutze wdPasteEnhancedMetafile, um die Qualität des eingefügten Diagramms zu verbessern. Dies kann die Lesbarkeit und das Aussehen Deines Dokuments erheblich verbessern.
-
Experimentiere mit der Anpassung der Seitenlayout-Einstellungen in Word, um sicherzustellen, dass das Diagramm und die Daten optimal präsentiert werden.
FAQ: Häufige Fragen
1. Wie kann ich ein Diagramm in Word erstellen?
Du kannst ein Diagramm direkt in Word erstellen, indem Du auf Einfügen > Diagramm klickst und die gewünschten Daten eingibst.
2. Kann ich mehrere Diagramme aus Excel in Word einfügen?
Ja, Du kannst die oben genannten Schritte für jedes Diagramm wiederholen oder den VBA-Code anpassen, um mehrere Diagramme in einem Durchgang einzufügen.