Image'den Hücreye Resim Kopyalama

[alptun20]

Ekli Dosyadakı Form üzerindeki Image nesnesi üzerine ComboBox ile çağırdığımız resmi Excelde B2 hücresine aktarmak istiyorum, yardımları bekliyorum.

Saygılarımla..

 

[Husgvarna]

Merhaba.
Image1'in nerede olduğunu belirtmemişsiniz..!
Aşağıdaki link işinize yarayabilir.
http://www.excel.web.tr/f48/smi-kriter-alarak-resim-caoyrma-t87053.html

 

[halit3]

bu kodu denermisiniz.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim Picture As Object
deg = 0
For Each Picture In Sheets("Sayfa1").Shapes
If TypeName(Sheets("Sayfa1").Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then
If TypeName(Sheets("Sayfa1").Shapes(Picture.Name).OLEFormat.Object.Object) = "Image" Then
If Picture.Name = "Image1" Then
deg = 1
End If
End If
End If
Next Picture
If deg = 0 Then
Dim Obj As Object
Dim Cell As Range
Set Cell = Cells(2, "b")
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1")
With Obj
.Left = Cell.Left
.Top = Cell.Top
.Height = Cell.Height
.Width = Cell.Width
.PrintObject = False
End With
End If
Sheets("Sayfa1").Image1.Picture = LoadPicture(None)
resimyükle = ComboBox1.Text
For Each Picture In Sheets("Sayfa1").Shapes
If TypeName(Sheets("Sayfa1").Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then
If TypeName(Sheets("Sayfa1").Shapes(Picture.Name).OLEFormat.Object.Object) = "Image" Then
If Picture.Name = "Image1" Then
Sheets("Sayfa1").Shapes(Picture.Name).OLEFormat.Object.Object.Picture = LoadPicture(resimyükle)
End If
End If
End If
Next Picture
End Sub

 

[alptun20]

bu kodu denermisiniz.

Halit Hocam ilginiz içn teşekkür ederim.

If olan satırlarda hata veriyor.

 

[alptun20]

Merhaba.
Image1'in nerede olduğunu belirtmemişsiniz..!
Aşağıdaki link işinize yarayabilir.
http://www.excel.web.tr/f48/smi-kriter-alarak-resim-caoyrma-t87053.html

Mesajımda Formun üzerinde olduğu yazıyor.

 

[halit3]

Halit Hocam ilginiz içn teşekkür ederim.

If olan satırlarda hata veriyor.

siztem kendisi bu kelimeyi otmatk arasını açıyor
OLE Format

aradaki boşlukları al dene

OLEFormat

 

[halit3]

en iyisi dosyayı göndereyim bir kaç tane nesnede boşluklar oluşmuş

 

[halit3]

yazılan kodları

bunun içine yazdığımız zaman bazı kelimelerin aralarında boşluklar oluyor.

 bunun içine yazdığımızda olmuyor 3 . nolu mesajdaki kodu düzelttim.

 

[Mahir64]

Konunun takpçisiydim elinize sağlık halit bey güzel sonuçlandı.
Bende buna benzer bir işlem yapacaktım çok işime yarayacak.

 

[alptun20]

Halit hocam işlem tamam ancak, ımage üzerine gelen resmin küçük bir kısmı hücreye atılıyor. Resmin orijinal halini atmak için ne yapmamız gerekiyor.

Halit Hocam tamam sorunu hallettim teşekkür ederim.

 

[halit3]

Konunun takpçisiydim elinize sağlık halit bey güzel sonuçlandı.
Bende buna benzer bir işlem yapacaktım çok işime yarayacak.

iyi çalışmalar

 

[halit3]

Halit hocam işlem tamam ancak, ımage üzerine gelen resmin küçük bir kısmı hücreye atılıyor. Resmin orijinal halini atmak için ne yapmamız gerekiyor.

Halit Hocam tamam sorunu hallettim teşekkür ederim.

iyi çalışmalar