| |
Excel VBAでパワーポイントを開いて画像を挿入するプログラムを作っています。それを実行したときに、「型が一致しません」というエラーが出ます。しかしどこを見ても型が一致しない部分が見つからないので、どこがおかしいか教えていただきたいです（そのコードは後述します）。コードを参考にしたサイトは次のURLのところです。ｈｔｔｐ://color-chips.net/pencils/archives/2014/0805_220036.html
これをパワーポイントVBAコピペしたときはちゃんと実行できました。Excel VBAにコピペして実行しようとしたときはActiveXが使えないという類のエラーが出ました。
前述の型不一致エラーが出るコードは以下です。上のものをコピペして一部改変したものです。
Set stImageShape = ppPrs.Slides(tsIndex(num)).Shapes.AddPicture( _
Filename:=objFile.Path, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=0, _
Top:=0)
(stImageSapeはshape、ppPrsはPowerPoint.Presentation、tsIndex()とnumはInteger、objFileはObjectとして宣言しています。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 18/5/7(月) 12:50 -
