Hallo Dirk,
die SheetProperties sind als Safearray gepackt und müssen entsprechend behandelt werden. Ich hab dir mal ein Ministück fertig gemacht, was das Umpacken in "normale" Doubles zeigt:
Code:
Dim vSheetSize As Variant
Dim SheetSize As Double
Dim SheetWidth As Double
Dim SheetHeight As Double' die Blattgröße ermitteln
vSheetSize = Sheet.GetProperties
SheetSize = vSheetSize(0)
SheetWidth = vSheetSize(5)
SheetHeight = vSheetSize(6)
Du findest auch in der API
-Hilfe ganz oben im Bereich Programmers Guide in den Prgramming topics ein paar Hinweis und Beispiele, wie das mit den Safearrays in Visual Basic funktioniert.
Ciao,
Stefan
------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP