Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Darkface am 27.09.02 - 16:14:19

Titel: VB Code in Lotus Script umwandeln
Beitrag von: Darkface am 27.09.02 - 16:14:19
Hallo zusammen,
ich habe folgenden Excel-VB Code und würde ihn gerne in Lotus Script umwandeln. Aber dafür fehlt mir einfach die Erfahrung. :(

Code

With Activesheet.PageSetup
     .PageSetup.Orientation = xlLandscape
     .PageSetup.Zoom = False
     .PageSetup.FitToPagesWide = 1
     .PageSetup.FitToPagesTall = 1
End With



Es wäre nett, wenn mir jemand helfen könnte.

Gruß
 Darkface
Titel: Re: VB Code in Lotus Script umwandeln
Beitrag von: Myron am 27.09.02 - 16:29:59
Möglicherweise gehts so:

Set excel = CreateObject("Excel.Application")
excel.Workbooks.Add
With excel.Activesheet
 .PageSetup.Orientation = 2
 .PageSetup.Zoom = False
 .PageSetup.FitToPagesWide = 1
 .PageSetup.FitToPagesTall = 1
End With
excel.Visible = True

Grüße
Titel: Re: VB Code in Lotus Script umwandeln
Beitrag von: HJPSoft am 28.09.02 - 13:23:43
Hm,

die Belegung der Konstanten steht in jedem VBA-Objektkatalog. aufzurufen unter Ansicht --> Objektkatalog
Im genannten Beispiel werden unter XLPageOrientation im Excel VBA-Objektkatalog die Konstanten  xlLandscape = 2 und xlPortrait= 1 angezeigt.
Ich hoffe das hilft Dir weiter.
Im übrigen finde ich keine nennenswerten Unterschiede zwischen  VB und Lotus Script

mfG

Hans
Titel: Re: VB Code in Lotus Script umwandeln
Beitrag von: Notes-Tiger am 28.09.02 - 13:40:04
Hi,
wo finde ich denn den VBA-Objektkatalog??
Gruss
Jörn
Titel: Re: VB Code in Lotus Script umwandeln
Beitrag von: HJPSoft am 28.09.02 - 14:10:43
Hallo Jörn,

der VBA-Objektkatalog ist ausschließlich über den
VB-Editor erreichbar.
Dazu im EXcel, Word, PowerPoint etc. den Menüpunkt
Extras --> Makro --> Makros--> Name eingeben und bearbeiten auswählen. Oder einfach Alt + F11 drücken.
Dann Ansicht-->Objektkatalog  ;D ;D ;D

Tschüss

Hans
Titel: Re: VB Code in Lotus Script umwandeln
Beitrag von: Darkface am 01.10.02 - 12:15:08
Hallo zusammen,
Vielen Danke für die Hilfe, es hat funktioniert.

Gruß
 Darkface