HSPTV!掲示板

HSPからのエクセルファイルの出力について質問させて頂きます。
たびたびの質問ですみません....
図形オブジェクトをAddShapeにて組み込むことができたのですが、
枠線を細い黒線、塗りつぶしなし(または白)にしたいと思ってます。
VBAでは、Line.WeightやFill.ForeColor.SchemeColorを使うようですが、
まだHSPの場合の記載方法が理解できていなく(VBAもですが)、
コンパイルできてません。
どなたかアドバイス頂ければ幸いです。

newcom xlApp, "Excel.Application"
xlApp("Visible") = 1 ; ウィンドウを表示
xlApp("DisplayAlerts") = 0 ; 警告メッセージを表示させない
xlBooks = xlApp("Workbooks") ; Workbooks コレクション取得
xlBook = xlBooks("Add") ; ワークブックを追加
xlSheet = xlBook("Worksheets","sheet1") ; Sheet取得


//　印枠四角形オブジェクト
   Shapes= xlSheet("Shapes")
   Shapes -> "AddShape" 1, 400, 170, 40, 40
   Shapes -> "AddShape" 1, 440, 170, 40, 40
   Shapes -> "AddShape" 1, 480, 170, 40, 40  

//　オブジェクト図形の表示
;	Selection.ShapeRange.Line.Weight = 2
;	Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

stop
</pr>

分かってるかもしれませんが、Selectionは選択されているShapeオブジェクトを指しています。
この場合、Selectionにあたるオブジェクトは、AddShapeメソッドによって返されるので、
メソッドを実行する前のところにcomres命令によって
戻り値を入れる変数を指定しておけばよいです。

あとはその変数に入っているオブジェクトから、
ShapeRangeを取得し、LineやFillへとたどっていきます。

ひよこさん、ご回答ありがとうございました。

回答をもとに再チャレンジしてみました。
各図形オブジェクトを指定して、.ごとの命令をつなげていく認識は
あるのですが、まだ基本知識が足りなさすぎ、コンパイルエラーが
でます。（comresを初利用ですが変数が決まってるとか？)
どなたかご指導頂きたくお願いいたします。

newcom xlApp, "Excel.Application"
xlApp("Visible") = 1 ; ウィンドウを表示
xlApp("DisplayAlerts") = 0 ; 警告メッセージを表示させない
xlBooks = xlApp("Workbooks") ; Workbooks コレクション取得
xlBook = xlBooks("Add") ; ワークブックを追加
xlSheet = xlBook("Worksheets","sheet1") ; Sheet取得


   Shapes= xlSheet("Shapes")
   comres shapeobj
   Shapes -> "AddShape" 1, 400, 170, 40, 40
   xlShapeRange = shapeobj("ShapeRange") // compile error
   xlLine = xlShapeRange("Line")
   xlLine("Weight") = 2

stop
</pr>

すいません。僕が嘘の情報を載せたようです。

AddShapeの戻り値はShapeRangeに当たるもののようで、
shapeobjから直接LineやFillを取得していいようです。

ちゃんと調べもせず、すいませんでした。

ひよこさん
ご回答ありがとうございました。
無事実行することができました。
（返信遅くなりすみません。）