Diagramm kopieren

25/01/2008 - 07:16 von Alex | Report spam
Guten Morgen,

ich möchte gerne mit Hilfe eines Makros (Codes) , ein Diagramm
kopieren und in ein Worddokument transferieren. Eine Tabelle von Excel
zu transferieren klappt wunderbar aber wie mache ich dies nun mit
einem Diagramm? Làsst sich dies vielleicht mit dem Zwischenspeicher
bewerkstelligen?

Mein bisheriger Code:

Dim wordapp As New Word.Application
Dim i As Integer

With wordapp

.ScreenUpdating = False
.Visible = True
.Documents.Add
.Activate

With .Selection

With .Font

.Name = "Arial"
.Size = 10
.Bold = True
.Color = wdColorBlack
End With

.Tables.Add Range:=.Range, numrows:), numcolumns:=4
.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(4)
.Tables(1).Columns(2).PreferredWidth = CentimetersToPoints(4)
.Tables(1).Columns(3).PreferredWidth = CentimetersToPoints(4)
.Tables(1).Columns(4).PreferredWidth = CentimetersToPoints(4)

.TypeParagraph

For i = 1 To 29

.TypeText text:=Worksheets("Stickfaktor").Cells(i,
1).Value
.MoveRight unit:=wdCell

.TypeText text:=Worksheets("Stickfaktor").Cells(i,
2).Value
.MoveRight unit:=wdCell

.TypeText text:=Worksheets("Stickfaktor").Cells(i,
3).Value
.MoveRight unit:=wdCell

.TypeText text:=Worksheets("Stickfaktor").Cells(i,
4).Value
.MoveRight unit:=wdCell

Next i

End With

.ScreenUpdating = True
End With

Worksheets("Tabelle 1").Activate
ActiveSheet.ChartObjects("Diagramm 3").Chart.ChartArea.Copy


Gurß

Alex
 

Lesen sie die antworten

#1 Paul Batt
25/01/2008 - 10:42 | Warnen spam
"Alex" schrieb im Newsbeitrag
news:
Guten Morgen,

ich möchte gerne mit Hilfe eines Makros (Codes) , ein Diagramm
kopieren und in ein Worddokument transferieren. Eine Tabelle von Excel



Sub Makro1()
Dim oBlatt As Worksheet, oDia As ChartObject
Set oBlatt = Worksheets("Test")
With oBlatt
Set oDia = .ChartObjects(1)
oDia.Chart.Export ThisWorkbook.Path & "\test.jpg", "JPG"
End With
End Sub

Das Diagramm ist VBA-màssig ein Chart-Objekt. Diese sind pro Arbeitsblatt
durchnummeriert, es sei denn, Du gibst ihnen Namen. Obiges speichert das
Diagramm z.B. als jpg (das Blatt muss bei diesem Code vorher 1 x
abgespeichert werden, sonst kennt er den Pfad nicht). Wenn ich's direkt in
Word haben wollte, würde ich von Word-VBA ausgehen und àhnlich wie oben auf
Excel zugreifen.

Paul

Ähnliche fragen