お世話になります。
VB6でエクセルのセルを数値で指定して、そこに画像を読み込んで実態を張り付けたいのですが、
色々調べて
ActiveSheet.Pictures.Insertと
ActiveSheet.Shapes.AddPictureを試してみましたが
ActiveSheet.Shapes.AddPicture( FileNameTmp, False, True, 10, 20, 0, 0)
AddPictureはもしかしてVB6には対応していないのでしょうか?
構文エラーになってしまいます。
ActiveSheet.Pictures.Insert(FileNameTmp).Select
Insertだと画像がリンクになってしまいます。
No.1ベストアンサー
- 回答日時:
ActiveSheet はExcelVBAですから
VB6から操作するにはExcelオブジェクトから
記載しないとダメなのでは?
⇒画像の縦横のサイズが0になっているのは気になりましたので、
こちらは100とさせてもらいましたけど。
Excelの参照設定は行なわれているとして
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
こんな感じじゃないですかね?
⇒閉じるとか解放については省いてます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) 改ページを挿入 1 2022/12/04 23:19
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルのVBAの標準モジュール...
-
PowerPointVBAでスライドマスタ...
-
[VBA]CDOメッセージ送信エラー
-
VBScriptでExcelのグラフを貼り...
-
VBAからPDFファイルにパスワー...
-
オブジェクトが見つかりません
-
VBA:オートシェイプの線の長...
-
Excel VBA グラフを任意sheetに...
-
sheetsメソッドの失敗
-
テキストボックス中の文字列の...
-
上下の位置揃えについて
-
EXCEL VBA オートシェイプナン...
-
VBScriptからDLL参照設定したい
-
TXTファイルをMDBファイ...
-
AccessからOutlookを立上げファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
PowerPointVBAでスライドマスタ...
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAについてです。 初心者です...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
このように書くべきですか? { ...
-
EXCEL VBA オートシェイプナン...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
おすすめ情報