İmage nesnesine shape atmak...

[ffff7]

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?...

 

[Levent Menteşoğlu]

Bu yazdığınız şekilde netice alamazsınız. En pratik yol, grafik nesnesi üzerinden export etmektir. Belki API kullanarakta çözülebilir. Excelinizin exportta hata vermesi bazı referansların eksik olduğunu gösterir diye düşünüyorum. Benim görüşüm excelinizi tam versiyon olarak yeniden yüklemeniz yönündedir.

 

[takirti]

hep işyerleriyle ilgili birazda öğrenciler ilgili olsa daha iyi olur? mesala öğrenciler ders programı yapacaklar . . . . ders notlarını tutacakları gibi şeyler olsa öğrenciler daha fazla bakarlar bence bunu da koymanız gerekiyor

 

[neroma]

hem resimlerin olduğu sayfaya hemde userform üzerine birer image nesnesi ekliyoruz,
herikisine resmi paste ediyoruz, çalışıyor.


UserForm1.Image1.Picture = LoadPicture("")
For j = 1 To Sheets("Resim").Cells(65536, 1).End(xlUp).Row


If ((Worksheets("Resim").Cells(j, 1))) = Sheets("Sayfa1").Cells(i, 10) Then
On Error GoTo hata

Sheets("Resim").Activate
Worksheets("Resim").Shapes(Range("A" & j)).CopyPicture

Worksheets("Resim").Image2.Picture = PastePicture
UserForm1.Image1.Picture = PastePicture

Exit Sub
hata:

UserForm1.Image1.Picture = LoadPicture("")
End If

Next

 

[hsayar]

tersi münkün değilmi image nesnesi üzerindeki resmi, c:\deneme\ yoluna resim.jpg olarak kaydetmek gibi.