Excel-Diagramm aus Word-Tabelle
(Word 2000)
Mit Word lassen sich zwar Tabellen erstellen, doch bei der Erstellung von Diagrammen muss Word passen. Dazu müsste man Excel öffnen, die Word-Tabelle kopieren, daraus ein Diagramm
erstellen und dieses schlussendlich in die Word-Datei kopieren. Etwas umständlich, wenn sich das auch automatisieren lässt. Mit dem folgenden VBA-Programm muss nur noch die Word-Tabelle
markiert, das Makro gestartet und anschliessend das Diagramm aus der Zwischenablage eingefügt werden.
Sub DiagrammEinfügen() Dim objXL As Object Const xl3DColumn = -4100 Const xlRows = 1 Const xlLocationAsNewSheet = 1
' Markierung in Zwischenablage einfügen Selection.Copy
' Excel im Hintergrund laden Set objXL = CreateObject("Excel.Application")
With objXL ' Neue Arbeitsmappe öffnen .Workbooks.Add
' Zwischenablage einfügen .ActiveSheet.Paste
' Diagramm erstellen
.Charts.Add With .ActiveChart
' Diagramm vom Typ 3D-Säulen definieren .ChartType = xl3DColumn
' .UsedRange für den benutzten Bereich angeben ' PlotBy richtet das Diagramm nach Zeilen aus
.SetSourceData Source:=objXL.Sheets("Tabelle1").UsedRange, PlotBy:=xlRows
' Diagramm in ein neues Arbeitsblatt einfügen
.Location Where:=xlLocationAsNewSheet
' Diagramm in die Zwischenablage kopieren .ChartArea.Copy
End With
' Arbeitsmappe ohne speichern schliessen .ActiveWorkbook.Close SaveChanges:=False .Quit End With
' Excel schliessen Set objXL = Nothing MsgBox "Diagramm kann aus Zwischenablage eingefügt werden." End Sub
|
|