
VBからExcelシート上のPictureBoxに画像を呼び込もうとしていますが、オートメーションエラーが出ます。
どうしてですか?Excel-VBAで同じ事をすると正常に動作します。
'Excel上にあるPictureBoxオブジェクトを取得
Set Image1 = xlSheet.OLEObjects("Image1").Object
'PictureBoxに画像を貼り付ける
With Image1
.AutoLoad = True
.AutoSize = False
.PictureSizeMode = fmPictureSizeModeZoom
.PictureAlignment = fmPictureAlignmentCenter
.Picture = LoadPicture("C:\MyPicture\...\pict.bmp") ←ここでエラー!
End With
開発環境
Win2000(SP2) + VB6.0(SP4) + Excel2000(SP2)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
VBのPictureオブジェクトをExcelのPictureオブジェクトに
代入しているのが、いけないのかも。
API関数のStretchBltかBitBltを使うのはどうでしょう?
No.1
- 回答日時:
>どうしてですか?Excel-VBAで同じ事をすると正常に動作します。
VBだとxlSheetのオブジェクトが定義されていないからではないですか。
ちゃんとExcelオブジェクトを定義してあげてください。
この回答への補足
早速の回答をありがとう御座います。
xlSheetのオブジェクトは正常に取れています。
(他でも使用していますので間違いありません)
'PictureBoxに画像を貼り付ける
With Image1
.AutoLoad = True
.AutoSize = False
.PictureSizeMode = fmPictureSizeModeZoom
.PictureAlignment = fmPictureAlignmentCenter
'ここまでは正常に動作します。
'例えば画像の貼り付け位置を変えたりすると
'指示どおりの動作をしています。
.Picture = LoadPicture("C:\MyPicture\...\pict.bmp") ←ここでエラー!
'このステップにくるとエラーになってしまうのです。
'このプロパティに問題があるように思えるのですが・・・
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
Excelでフィルタをかけると警告...
-
[VBA]CDOメッセージ送信エラー
-
ExcelのVBAについて(グラフ操作)
-
VBAからPDFファイルにパスワー...
-
VBA:オートシェイプの線の長...
-
エクセル エラー438
-
Excel VBA Collection.add で R...
-
横軸ラベルの追加に関するエラ...
-
Outlook の予定表データをVB...
-
VBAについてです。 初心者です...
-
エクセルVBAでFor each文
-
Letステートメントの使い方につ...
-
VBAで既に開いている別アプリケ...
-
CreateObjectとGetObjectの違い
-
VBS 指定のフォルダ内の最新の...
-
オブジェクトが見つかりません
-
UserForm1.Showでエラーになり...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
Excelでフィルタをかけると警告...
-
テキストボックス中の文字列の...
-
VBAで既に開いている別アプリケ...
-
実行時エラー 3265「要求された...
-
VBAからPDFファイルにパスワー...
-
ExcelVBAでのNZ関数について
-
Excel VBAでIEにアクセスするプ...
-
エクセルVBAで配列内に空白デー...
-
[VBA]CDOメッセージ送信エラー
-
「オブジェクト変数または With...
-
VBAで Set wb = Sheets(1).Cop...
-
VBScriptからDLL参照設定したい
-
AccessVBAで「dim dbs as datab...
-
EXCEL VBA オートシェイプナン...
-
エクセルマクロエラー「'Cells'...
-
VBA:オートシェイプの線の長...
-
VBScriptでファイルの日時順(降...
おすすめ情報