Excel VBA質問箱 IV

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

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


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

26675 / 76732

←次へ　｜　前へ→


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

ken

- 08/5/2(金) 8:21 -


	引用なし

	パスワード

フォームにリストボックスを作成し、Imege1に表示するように参考書をみて
作りました。

Private Sub ListBox1_Change()
　　Dim MyDir As String
　　MyDir = ActiveWorkbook.Path & "\写真\"
　　Image1.Picture = _
　　　　LoadPicture(MyDir & ListBox1.Text)
End Sub
--------------------------------------
Private Sub UserForm_Initialize()
　　Dim MyDir As String
　　Dim myFName As String
　　
　　MyDir = ActiveWorkbook.Path & "\写真\"
　　myFName = Dir(MyDir & "*.JPG")
　　Do While myFName <> ""
　　　　ListBox1.AddItem myFName
　　　　myFName = Dir()
　　Loop
End Sub
-------------------------------------------
ここまでは作動しましたが
選択した写真をエクセルシートに貼り付けるよう

-------------------------------------------
Sub 表示()
　Dim myDir As String
　 myDir = ActiveWorkbook.Path & "\写真\"
　 ActiveSheet.Range("D2") = _
　　SavePicture(Image1 & myDir)
End Sub
--------------------------------------
Sub 表示2()
　 Dim myDir As String
　 myDir = ThisWorkbook.Path & "\写真￥"
　 Call SavePicture(Image1.Pictures, myDir)
　 ActiveSheet.Pictures.Insert myDir
　 Kill myDir
End Sub
-------------------------------------------
Sub 表示3()
　　ActiveSheet.Range("D2") = Image1.Pictures
End Sub
--------------------------------------------
と3タイプ作って見ましたがどれも作動しませんでした
シートに貼り付けるにはどのように記述したらいいですか？
教えてください。
追伸
似たような質問もあり、それも試して見ましたが-----

1 hits

▼

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

≪