Userform/Image Nesnesindeki Resmi Masüstüne Kaydetme

[BedriA]

Arkadaşlar,

Ekteki örnek dosyadan daha iyi anlaşılacağı üzere,
sayfadan userforma çağrılan resmi masa üstüne, Excel'e uyumlu herhangi bir resim formatında aktarmak istiyorum. Bu mümkün mü acaba?
Mümkün ise resmin kenarlık olmadan kaydedilmesi de mümkün mü?

Yardımlarınızı bekliyorum.

 

[halit3]

kod:

Private Sub CommandButton6_Click()

Klasor = CreateObject("wscript.Shell").SpecialFolders("Desktop") & "\"

[COLOR="Red"]Say[/COLOR] = CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files.Count
Dosya_Adı = Klasor & "Picture " & [COLOR="red"]Say[/COLOR] & ".jpg"

If Not Image1.Picture Is Nothing Then
SavePicture Image1.Picture, Dosya_Adı
Else
MsgBox "Resim yok"
Exit Sub
End If
MsgBox "işlem tamam"
End Sub

 

[BedriA]

kod:

Private Sub CommandButton6_Click()

Klasor = CreateObject("wscript.Shell").SpecialFolders("Desktop") & "\"

sat = CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files.Count
Dosya_Adı = Klasor & "Picture " & Say & ".jpg"

If Not Image1.Picture Is Nothing Then
SavePicture Image1.Picture, Dosya_Adı
Else
MsgBox "Resim yok"
Exit Sub
End If
MsgBox "işlem tamam"
End Sub

Halit Hocam,

Çok sağolun.
Equation nesnesini resim olarak ihraç etmek en pratik yol sanırım.
İhraç ettikten sonra bir başka modül olan, soru bankasına görsel içerikli soru ekle modülünden soruyu bankaya atıyorum.

Sağ kulağı sol elle kafanın arkasından dolanıp tutmaya benziyor sanki. Ne dersiniz?

 

[BedriA]

Halit Hocam,

Bu kodda say değişkeni tanımlanmamış sanırım.
Resimlere sürekli aynı ismi veriyor çünkü.

 

[halit3]

Halit Hocam,

Bu kodda say değişkeni tanımlanmamış sanırım.
Resimlere sürekli aynı ismi veriyor çünkü.

yukarıdaki kodu düzelttim

 

[BedriA]

yukarıdaki kodu düzelttim

Teşekkürler Halit Hocam.