Steuerung Excel Papierformat von Word aus

20/08/2010 - 21:43 von Thomas Handschin | Report spam
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
 

Lesen sie die antworten

#1 Thomas Handschin
22/08/2010 - 00:23 | Warnen spam
Am 20.08.2010 21:43, schrieb 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



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/Fo.../officede/

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

Gruss Thomas

Ähnliche fragen