Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Diana82 am 22.02.06 - 13:28:00

Titel: Excel 2003: Ausrichtung in einer Zelle
Beitrag von: Diana82 am 22.02.06 - 13:28:00

Hallo,
ich habe ein kleines Problem. Bei mir funktioniert die Ausrichtung nach dem Export nach Excel nicht. Ich habe schon überall rumgesucht und dabei folgendes gefunden:

   xlapp.range("C7:D100").select
   xlapp.selection.horizontalAlignment = xlCenter

Wenn ich das so ausführe kommt allerdings folgende Fehlermeldung:
"Microsoft Office Excel: Die HorizontalAlignment-Eigenschaft des Range-Objektes kann nicht festgelegt werden."

Alle anderen Formatierungen davor funktionieren. Hat vielleicht jemand ne Idee? Ich will den Text dann auch rechtsbündig ausrichten!
Danke schon mal

Titel: Re: Excel 2003: Ausrichtung in einer Zelle
Beitrag von: ascabg am 22.02.06 - 13:45:00

Hi,

Versuch mal Folgendes.

Code

xlApp.Range("C7:D100").HorizontalAlignment = xlCenter

Andreas

Titel: Re: Excel 2003: Ausrichtung in einer Zelle
Beitrag von: Diana82 am 22.02.06 - 13:47:38

Geht leider auch nicht! Kommt die selbe Meldung.  >:(

Titel: Re: Excel 2003: Ausrichtung in einer Zelle
Beitrag von: Glombi am 22.02.06 - 13:52:10

Es liegt am xlCenter
Diese Excel-Konstante kennt LotusScript nicht. Du musst stattdessen den entsprechenen Zahlwert für xlCenter verwenden.

gegoogelt ergibt:

xlapp.range("C7:D100").select
xlapp.selection.horizontalAlignment = -4108


Falls die Zahl nicht stimmt, kannst Du das in Excel nachsehen.

Andreas

Titel: Re: Excel 2003: Ausrichtung in einer Zelle
Beitrag von: Glombi am 22.02.06 - 13:56:49

siehe dazu auch
http://atnotes.de/index.php?topic=27785.0

Titel: Re: Excel 2003: Ausrichtung in einer Zelle
Beitrag von: Diana82 am 22.02.06 - 14:03:16

Vielen dank, es funktioniert!

Titel: Re: Excel 2003: Ausrichtung in einer Zelle
Beitrag von: Diana82 am 22.02.06 - 14:07:07

XlSheet.Range("1:1").HorizontalAlignment = 3 or -4108 (Center)
XlSheet.Range("1:1").HorizontalAlignment = 2 or -4131 (Left)
XlSheet.Range("1:1").HorizontalAlignment = 4 or -4152 (Right)


Das hab ich grad noch gefunden!