Diagramm via Excel in Word zentrieren?
24.07.2020 09:56:43
Ulli
Hallo an Alle!
Ich sitz mal wieder an einem Makro, dass nicht so will wie ich es möchte.
Eigentlich soll lediglich ein Diagramm aus Excle in eine neue Worddatei überführt werden und dort zentriert ausgerichtet werden. Eigentlich funktioniert alles prima,....aber dieses zentrieren will einfach nicht klappen. Ich hab sämtliche Foren durchstöbert und ausprobiert, den Makrorekorder dazu verwendet aber aus irgendeinem mir nicht ersichtlichen Grund will er dieses Diagramm (übrigens auch bei Textpassagen und dergleichen funktioniert es auch nicht) nicht mittig ausrichten. Was mach ich hier falsch?
Wäre für jeden Tipp dankbar :)
Anbei der Code,
liebe Grüße Ulli
Sub Daten_nach_Word()
Dim wdApp As Object
Dim wdoc As Object
Dim ab As Byte
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Sheets("Tabelle1").ChartObjects("Diagramm 9").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
wdApp.Documents.Add
Set wdoc = wdApp.ActiveDocument
With wdApp.Selection
.Font.Size = 14
.ParagraphFormat.Alignment = wdAlignParagraphJustify ' sollte theoretisch Blocksatz sein _
tuts aber nicht
.TypeText Text:=CStr(Range("A1"))
.TypeParagraph 'Beginnt eine neu Zeile
.TypeText Text:="Die Emissionsbelastungen für den Betrieb " & "" & CStr(Worksheets(" _
Tabelle1").Range("H2")) & " wurden am " & CStr(Worksheets("Tabelle1").Range("I2")) & " _
analysiert und berechnet."
.TypeText Text:=" Der Betrieb hat eine Gesamtfläche von " & CStr(Worksheets("Tabelle1"). _
Range("I3")) & " ha und bewirtschaftete diese " & CStr(Worksheets("Tabelle1").Range("K3")) & "." _
_
If Worksheets("Tabelle1").Range("H4").Value > 0 Then
.TypeText Text:=" Im Wirtschaftsjahr " & CStr(Worksheets("Tabelle1").Range("H5")) & _
_
" befanden sich durchschnittlich " & CStr(Worksheets("Tabelle1").Range("H4")) & " Kühe, " & _
_
CStr(Worksheets("Tabelle1").Range("I4")) & " Jungtiere und " & CStr(Worksheets("Tabelle1"). _
Range("J4")) & " Kälber auf dem Betrieb. "
Else: .TypeParagraph
End If
.TypeText Text:=CStr(Worksheets("Tabelle1").Range("K5"))
.TypeText Text:=" " & CStr(Worksheets("Tabelle1").Range("L5"))
End With
Sheets("Tabelle1").ChartObjects("Diagramm 10").Activate ' Hier wird das Element aktiviert (also _
_
das Diagramm)
ActiveChart.ChartArea.Select ' Hier wird das Diagramm ausgewählt
ActiveChart.ChartArea.Copy ' Hier wird das Diagramm kopiert
With wdApp.Selection
.ParagraphFormat.Alignment = wdAlignParagraphCenter ' Warum will dieses Ding nicht?
.Paste ' und hier wird es endlich eingefügt
End With
With wdApp.Selection
.Font.Italic = True
.Font.Size = 10
.TypeParagraph
.TypeText Text:=" Grafik 1: Betriebliche Gesamtbilanz für " & CStr(Worksheets("Tabelle1"). _
Range("H2")) & " in Tonnen CO2 Äquivalente (CO2e)."
End With
Set wdoc = Nothing
Set wdApp = Nothing
End Sub