| |
フォームにリストボックスを作成し、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タイプ作って見ましたがどれも作動しませんでした
シートに貼り付けるにはどのように記述したらいいですか？
教えてください。
追伸
似たような質問もあり、それも試して見ましたが-----
|
|
ken
- 08/5/2(金) 8:21 -
