Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: my head am 26.05.03 - 14:19:57

Titel: excel-rahmen
Beitrag von: my head am 26.05.03 - 14:19:57

hi!

weiß jmd wie ich in excel über script einen bereich markieren kann und um diesen dann einen rahmen ziehen??

Titel: Re:excel-rahmen
Beitrag von: mrx am 26.05.03 - 14:23:02

Hi,

da die Scriptsprache mit der eines Excel Makros sehr ählich ist, schlage ich vor du schaust dir mal an was Excel in einem entsprechend aufgezeichneten Makro macht und passt das dann in deinen LS Code ein.

Gruß
Malte.

Titel: Re:excel-rahmen
Beitrag von: my head am 26.05.03 - 14:28:11

danke, danke...

Titel: Re:excel-rahmen
Beitrag von: my head am 27.05.03 - 08:39:50

hab das gemacht und abgeändert folgenden code:

^{Excel.Range(xlSheet.Cells(1,1),xlSheet.Cells(70,112)).Select
Excel.Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous}


und in zeile 2 kommt "ole automation..."-fehler... kann mir jemd weiterhelfen?

Titel: Re:excel-rahmen
Beitrag von: wflamme am 27.05.03 - 10:57:09

Vermutlich fehlt:

Const xlEdgeLeft = 7

(aus dem Object Browser)

Die Konstanten kriegst Du wie folgt:
http://www.sns1.de/partner/flamme/wflamme.nsf/Shortcut/DumpTypeLibInfo1

Titel: Re:excel-rahmen
Beitrag von: my head am 28.05.03 - 07:46:04

^{'Konstanten
   Const xlDiagonalDown = 5      
   Const xlDiagonalUp = 6   
   Const xlEdgeLeft = 7      
   Const xlEdgeTop = 8
   Const xlEdgeBottom = 9
   Const xlEdgeRight = 10
   Const xlInsideVertical = 11
   Const xlInsideHorizontal = 12
   
Excel.Range(xlSheet.Cells(5,5),xlSheet.Cells(10,10)).Select
   Excel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   Excel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   With Excel.Selection.Borders(xlEdgeLeft )
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   With Excel.Selection.Borders(xlEdgeTop)
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   With Excel.Selection.Borders(xlEdgeBottom)
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   With Excel.Selection.Borders(xlEdgeRight)
      .LineStyle = xlContinuous
      .ColorIndex = xlAutomatic
   End With
   Excel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
   Excel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone}

hallo!

dieses script macht die border immer nur am linken rand des markierten  bereichs... warum??

danke schonmal

Titel: Re:excel-rahmen
Beitrag von: ata am 01.06.03 - 23:10:14

... du verwendst weitere Konstanten, die du nicht deklariert hast - xlContinuous z.B....

ata

Titel: Re:excel-rahmen
Beitrag von: wflamme am 02.06.03 - 04:50:15

Falls as das (s. ata) nicht ist:  Versuche doch mal, explizit eine Farbe und .weight zu setzen..
Ev. macht Excel ja das, was Du willst, Du kannst es nur nicht *sehen*?

Titel: Re:excel-rahmen
Beitrag von: my head am 02.06.03 - 07:14:55

herzlichen dank!!!

es lag nicht and den konstanten und auch nicht an der farbe... aber an der weight!!!

Titel: Re:excel-rahmen
Beitrag von: wflamme am 02.06.03 - 15:34:26

... und wieder ein Problem vom Schreibtisch aus gelöst  ;D
 ;D