---

Hallo zusammen!

Ich bin gerade dabei ein Programm zu schreiben, welches mir den Inhalt des Arbeitsblattes einer DFT auf das Arbeitsblatt einer anderen DFT zu kopieren.

Dabei habe ich folgendes Problem:

Ich will dass das Hintergrundblatt das gleiche wie im Original ist - Hintergrundblätter sind in beiden DFTs gleich. Jetzt habe ich versucht das Format per

intFormat = VorlagenDraft.ActiveSheet.SheetSetup.SheetSizeOption

auszulesen, was auch bedingt klappt. Standard-DIN-Formate haben eine Unique-Kennnummer, benutzdefinierte Formate  werden immer als '-1' zurückgegeben.

Meine Idee: Ich werde den Namen des Hintergrundblattes auslesen und zuordnen. Weiß jemand wie das geht?

Gruß,

ChaosElch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

    Set o_app = GetObject(, "SolidEdge.Application")
    Set o_doc = o_app.ActiveDocument
    Set o_sheet = o_doc.ActiveSheet

    m_back_name = o_sheet.Background.Name
    MsgBox "Name des aktiven Hintergrundes= " & m_back_name

' so setzt Du das neue Backgroundblatt über den Namen
    o_sheet.Background = o_doc.Sheets("A1-Quer")

' So setzt Du das Blatt auf Größe des aktiven Backgrounds.
    o_sheet.SheetSetup.SheetSizeOption = o_sheet.Background.SheetSetup.SheetSizeOption

------------------
APeters@BSS-Online.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP