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件)

VBのPictureオブジェクトをExcelのPictureオブジェクトに


代入しているのが、いけないのかも。
API関数のStretchBltかBitBltを使うのはどうでしょう?
    • good
    • 0

>どうしてですか?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

補足日時:2002/01/24 13:16
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

今、見られている記事はコレ!

  • 好きだけどケンカばかり……そんな彼との結婚は?

    やたらとケンカが多いカップルというのはいる。それでも腐れ縁なのか長く交際し、いざ結婚しようと決めたときに、ふと思い悩む。こんなにケンカが多いのに、結婚して大丈夫? と。今回は「教えて!goo」に寄せられ...

  • ポンコツな日々:第125話「食べてもOK」

    日々のちょっとしたヘンな出来事を、1話完結形式の4コマで綴っていきます。時にするどく、時にやんわり、ありそうで無さそうな日常の1コマを切り取ってお届けします。

  • “罵声大会”に怒り心頭?名指しで苦情も……駅員泣かせの鉄道ファン

    時として人は趣味に没頭してしまうと、周囲に迷惑をかけてしまいがち。それが公共の場ならばなおさらである。「教えて!goo」に「何で鉄道ファンはマナーの悪い人が多いのでしょうか?」との質問を見つけた。鉄道愛...

  • たまランチ:第102話「ネコ好き」

    外ランチを愛してやまない元気な女子社員・たまちゃん(26)。オシャレなお店より「安くておいしい」お店が大好き! そんな女子力低めなたまちゃんの、色気より食い気な日々をつづります。

  • エルフ田さん:第125話「洗濯干しの『コツ』」

    エルフ(ファンタジーとかに出てくる長寿の種族)の「エルフ田」と、ただの人間である女子社員2人による日常ギャグ。エルフならではのズレたツッコミでバシバシ人間界の話題を斬っていきます。

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ