none
Steuerung Excel Papierformat von Word aus RRS feed

  • Frage

  • Hallo Forum

    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 (A4, Letter, Legal) 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
    Freitag, 20. August 2010 20:04

Antworten


  • Der Wert von xlPaperA4 = 9

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

    Oder binde den Excel-Verweis ein (early binding). Dann stehen Dir die Excel-Konstanten zur Verfügung.

    Peter

    Freitag, 20. August 2010 20:49

Alle Antworten


  • Der Wert von xlPaperA4 = 9

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

    Oder binde den Excel-Verweis ein (early binding). Dann stehen Dir die Excel-Konstanten zur Verfügung.

    Peter

    Freitag, 20. August 2010 20:49
  • Hallo Peter

    Vielen herzlichen Dank für die prompte Antwort und den hiflreichen Tipp. Die Implementierung hat so problemlos geklappt!

    Gruss Thomas

    Samstag, 21. August 2010 22:07