Merhabalar...
Sorum şu bir excel sayfasındaki resimleri userform üzerindeki image nesnesine nasıl taşırız.? bir grafik nesnesine resmi "copy" "paste" yaptır, harddiske "export" la kaydet ordan da "image" e "loadpicture" yap cevabı dışında bir cevap arıyorum. çünkü nedense kullandığım excel 2003 "export" komutunda hata veriyor... çalıştıramadığım kodları veriyorum...
Private Sub UserForm_Initialize()
Set sh1 = Sheets("sayfa1")
a = sh1.Shapes.Count
For k = 1 To a
If Left(sh1.Shapes(k).Name, 5) = "Pictu" Then
m = m + 1
Controls("Optionbutton" & m).Caption = sh1.Shapes(k).Name
Image1.Picture = sh1.Shapes(k) 'burasını çözemedim
End If
Next
OptionButton1 = True
End Sub
yardımlarınıza şimdiden teşekkürler... Birde excel imin nesi eksikde chart1.export çalışmıyor, hata veriyor olabilir?...
Sorum şu bir excel sayfasındaki resimleri userform üzerindeki image nesnesine nasıl taşırız.? bir grafik nesnesine resmi "copy" "paste" yaptır, harddiske "export" la kaydet ordan da "image" e "loadpicture" yap cevabı dışında bir cevap arıyorum. çünkü nedense kullandığım excel 2003 "export" komutunda hata veriyor... çalıştıramadığım kodları veriyorum...
Private Sub UserForm_Initialize()
Set sh1 = Sheets("sayfa1")
a = sh1.Shapes.Count
For k = 1 To a
If Left(sh1.Shapes(k).Name, 5) = "Pictu" Then
m = m + 1
Controls("Optionbutton" & m).Caption = sh1.Shapes(k).Name
Image1.Picture = sh1.Shapes(k) 'burasını çözemedim
End If
Next
OptionButton1 = True
End Sub
yardımlarınıza şimdiden teşekkürler... Birde excel imin nesi eksikde chart1.export çalışmıyor, hata veriyor olabilir?...