HSPTV!掲示板

HSP上からエクセル上の編集を行いたく質問致します。

①　セルの幅/高さの変更

②　エクセル上の文字フォントの変更

③　オブジェクトの書式変更(図形塗りつぶし色､枠線)
　　

	newcom xlApp, "Excel.Application"
	
	xlApp("visible")		= 1
	xlApp("displayalerts")	= 0
	xlBooks	= xlApp("workbooks")
	xlBook	= xlBooks("Add")
	xlSheet = xlBook("Worksheets","sheet1")
	
	Shapes= xlSheet("Shapes")
 
   		Shapes -> "AddShape" 1, 80, 130, 40, 50
   		Shapes -> "AddShape" 1, 120, 130, 40, 50
   		Shapes -> "AddShape" 1, 160, 130, 40, 50
   		Shapes -> "AddShape" 1, 200, 130, 40, 50  
 
 	xlSheet("Range","B1") = "←幅変更→"
 	xlSheet("Range","B2") = "↑高さ変更↓"
   		
   end

hspで質問のようなことまではやったことなかったですが、以下のようで出来るようです。
もっとシンプルな書き方があるかも知れません。

newcom xlApp, "Excel.Application"

xlApp("visible") = 1
xlApp("displayalerts") = 0
xlBooks = xlApp("workbooks")
xlBook = xlBooks("Add")
xlSheet = xlBook("Worksheets","sheet1")

Shapes= xlSheet("Shapes")

Shapes -> "AddShape" 1, 80, 130, 40, 50
Shapes -> "AddShape" 1, 120, 130, 40, 50
Shapes -> "AddShape" 1, 160, 130, 40, 50
Shapes -> "AddShape" 1, 200, 130, 40, 50

xlSheet("Range","B1") = "←幅変更→"
;--- 幅変更---
xlSheet = xlSheet("Range","B1")
xlSheet-> "Select"
xlSheet("ColumnWidth") = 20
;--- font変更---
xlSheet2=xlSheet("font")
xlSheet2("name")="HG正楷書体-PRO"

xlSheet("Range","B2") = "↑高さ変更↓"
;--- 高さ変更---
xlSheet = xlSheet("Range","B2")
xlSheet-> "Select"
xlSheet("RowHeight") = 128
;--- 塗りつぶし---
xlSheet2=xlSheet("Interior")
xlSheet2("ColorIndex")=5

end

有難うございました。
解決しました。