Steuerung Excel Papierformat von Word aus

[Thomas Handschin]

Hallo NG

Ich habe eine Frage bezüglich Interaktion Excel VBA von Word aus. Und
zwar möchte ich von Word aus eine Excelvorlage aufrufen und dann
anschliessend programmatisch das Papierformat anpassen.

Folgenden Code habe ich bis jetzt benutzt:

*********************

Dim xlsApp As Object
Dim xlsWB As Object
Dim sVorlagenPfad As String

sVorlagenPfad = "C:\Test\ExcelVorlage.xlt"

Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True

Set xlsWB = xlsApp.Workbooks.Open(sVorlagenPfad)
With xlsWB.Worksheets(1).PageSetup
.PaperSize = xlPaperA4
End With

Set xlsWB = Nothing
Set xlsApp = Nothing

*********************

Der Aufruf und Erstellung des Excelsheest funktioniert problemlos. Nur
die Zuweisung der Excel PaperSize Eigenschaft geht nicht, da Word diese
nicht kennt.

Weiss jemand wie ich das bewerkstelligen kann?

Ich danke jetzt schon für eure Unterstützung.

Gruss Thomas

[Thomas Handschin]

Post by Thomas Handschin
Hallo NG
Ich habe eine Frage bezüglich Interaktion Excel VBA von Word aus. Und
zwar möchte ich von Word aus eine Excelvorlage aufrufen und dann
anschliessend programmatisch das Papierformat anpassen.
*********************
Dim xlsApp As Object
Dim xlsWB As Object
Dim sVorlagenPfad As String
sVorlagenPfad = "C:\Test\ExcelVorlage.xlt"
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
Set xlsWB = xlsApp.Workbooks.Open(sVorlagenPfad)
With xlsWB.Worksheets(1).PageSetup
.PaperSize = xlPaperA4
End With
Set xlsWB = Nothing
Set xlsApp = Nothing
*********************
Der Aufruf und Erstellung des Excelsheest funktioniert problemlos. Nur
die Zuweisung der Excel PaperSize Eigenschaft geht nicht, da Word diese
nicht kennt.
Weiss jemand wie ich das bewerkstelligen kann?
Ich danke jetzt schon für eure Unterstützung.
Gruss Thomas

Habe erst im nachhinein gesehen, dass die Newsgroup geschlossen ist!

Ich konnte das Problem aber mittlerweile über das MS Forum lösen:

http://social.msdn.microsoft.com/Forums/de-DE/officede/

With xlsWB.Worksheets(1).PageSetup
.PaperSize = 9 'xlPaperA4
End With

Gruss Thomas