Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26667 / 76732

←次へ　｜　前へ→


	【55396】Re:フォームのImageに表示した写真をエクセルシートに貼り付けたい

ハチ - 08/5/2(金) 13:00 -


	引用なし

	パスワード

▼ken さん：
>説明不足ですみません。
>いずれの表示（）を実行してもコンバインドエラー
>「変数が定義されていません。」と出ます。

『どこで』エラーになるかが書かれていませんが、
ファイル名がないことが原因だと思います。

>Sub 表示2()
>　 Dim myDir As String
>　 myDir = ThisWorkbook.Path & "\写真￥"
　　
myDir = ThisWorkbook.Path & "\写真￥buf.jpg"

>　 Call SavePicture(Image1.Pictures, myDir)

Call SavePicture(Image1.Picture, myDir)

>　 ActiveSheet.Pictures.Insert myDir
>　 Kill myDir
>End Sub

0 hits

▼

【55387】フォームのImageに表示した写真をエクセルシートに貼り付けたい ken 08/5/2(金) 8:21