- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VB6 エクセルに画像貼り付け）
VB6エクセルに画像貼り付け
このQ&Aのポイント
- VB6でエクセルの特定のセルに画像を貼り付ける方法について調査しました。ActiveSheet.Pictures.InsertとActiveSheet.Shapes.AddPictureを試しましたが、AddPictureはVB6に対応していないようです。
- VB6でエクセルのセルに画像を読み込んで貼り付ける方法を調査しています。ActiveSheet.Pictures.InsertとActiveSheet.Shapes.AddPictureを試しましたが、VB6にはAddPictureが対応していないため構文エラーが発生しています。
- VB6でエクセルの特定のセルに画像を張り付ける方法を探しています。試しにActiveSheet.Pictures.InsertとActiveSheet.Shapes.AddPictureを使用してみましたが、VB6ではAddPictureは構文エラーになってしまいます。
- usami33
- お礼率65% (269/411)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ActiveSheet はＥｘｃｅｌＶＢＡですから ＶＢ６から操作するにはＥｘｃｅｌオブジェクトから 記載しないとダメなのでは？ ⇒画像の縦横のサイズが０になっているのは気になりましたので、 こちらは１００とさせてもらいましたけど。 Ｅｘｃｅｌの参照設定は行なわれているとして Dim xlApp As New Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim FileNameTmp As String Set xlWb = xlApp.Workbooks.Open("C:\abc.xls") xlApp.Visible = True Set xlWs = xlWb.ActiveSheet FileNameTmp = "C:\test.jpg" ' シートオブジェクトを用いない時 xlApp.ActiveSheet.Shapes.AddPicture FileNameTmp, False, True, 10, 20, 100, 100 'シートオブジェクトを用いた時 'xlWs.Shapes.AddPicture FileNameTmp, False, True, 10, 20, 100, 100 こんな感じじゃないですかね？ ⇒閉じるとか解放については省いてます。
お礼
ありがとうございました。 括弧を外せばよかったんですね。 先ほどためして、無事動作しました。