Resim Yükleme

[ragnorak]

ActiveCell.Comment.Shape.Fill.UserPicture "C:\Program Files\ Pictures\Picture 1.gif"

Bu koddaki resim dosyasını; konumdan değilde, userformdaki image nesnesinin içindeki resmi yüklemek mümkün müdür?

 

[ragnorak]

ActiveCell.Comment.Shape.Fill.UserPicture image1.picture

bu şekilde yazıyorum ama olmuyor

 

[Haluk]

Şöyle olabilir;

Private Sub UserForm_Initialize()
    Image1.Picture = LoadPicture("C:\TestFolder\Skyline.jpg")
End Sub
'
Private Sub CommandButton1_Click()
    If Range("A1").Comment Is Nothing Then Range("A1").AddComment
    SavePicture Me.Image1.Picture, "C:\TestFolder\myPic.bmp"
    Range("A1").Comment.Shape.Fill.UserPicture "C:\TestFolder\myPic.bmp"
End Sub

.

 

[ragnorak]

Sağolasınız @Haluk Bey. Yol göstermeden olmuyor anladığım kadarıyla.