Box 24

 Home   Infos   Tipps   Webmail   Humor   Polizei   Gästebuch   Downloads   Chat   Suchen   Feedback   Links 

 

 Anmelden/Login   Neuanmeldung/New User   Java Telnet Applet   Telnet   
 

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