VBA で関数 LoadPicture を使いたいのですが

Question

Anonymous

VBA でユーザフォームに作ったイメージに画像を表示させたいのでイメージのPictureプロパティに画像ファイルのフルパスを代入しようとしています。

Image1.Picture = LoadPicture(FullPath)

とやってもLoadPictureが未定義とエラーが帰ってきてしまいます。

回避する方法を教えていただければと思います。

また、ファイルのフルパスの書き方も教えていただければ幸いです。

Windows版の解説本しか手元になく困っていますのでよろしくお願いします。

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

質問作成者が受け入れた回答

Anonymous

①私はMACを持たないので検証はしていませんが、

ここに

「　Microsoft Excel X for macのイメージ（Image）コントロールではヘルプに書かれていないPICT形式の画像ファイルが読み込めます。」

とありました。

②フルネームの確認（MACで動くかどうか分かりませんが、）

Sub フルネーム確認()

Dim myname As String

myname = Application.GetOpenFilename _

("Pictures (*.gif; *.jpg; *.bmp; *.tif;*.pct;*.pict), *.gif; *.jpg; *.bmp; *.tif;*.pct;*.pict", , "画像選択")

Range("A1").Value = myname

Range("A2").Select

ActiveSheet.Pictures.Insert (myname)

End Sub

0 件のコメント

1 件の追加の回答

Answer 1

回答ありがとうございます。

画像をpictにすれば読み込める事は確認しています。（直接Pictureプロパティに書き込んで確認）

問題は関数LoadPictureが定義されていない様で変数の型変換が出来ない事です。

何か回避できる方法をご存知でしたらご教授いただければ嬉しく思います。

（2016版なら大丈夫かもしれませんが）

ファイルへのパスはmac流で"¥"の代わりに":"で多分大丈夫だと思います。（LoadPictureが動けば確認できるのですが）

お忙しい所、ありがとうございました。

これからもよろしくお願いします。