Makro ile resim almada sorun

[Hakan ERDOST]

herkese merhaba.Aşağıdaki kod ile resi alabiliyorum ancak resmin alınacağı ve yaıştırılacağı parametre belli olmasın rağmen belirtilen u8 hücresine veri almıyor.sorun ne olabilir.

On Error Resume Next
ActiveSheet.Shapes("tc").Delete
[u8].Select
ActiveSheet.Pictures.Insert("C:\Resim\" & [p8] & ".jpg").Select
Selection.Name = "tc"
[u8].Select


Sheets("sicil_on").Select
Range("p9").Value = yeni.adi.Value
Range("p8").Value = yeni.tc.Value
Range("p10").Value = yeni.dtar.Value
Range("p14").Value = yeni.mebsis.Value
Range("p13").Value = yeni.sicilno.Value
Range("p15").Value = yeni.gorevilk.Value
Range("p11").Value = yeni.gorevi.Value
Range("p17").Value = yeni.yili4.Value
Range("p12").Value = yeni.kurumu.Value
Range("m47").Value = yeni.cbili1.Value
Range("m48").Value = yeni.cbili2.Value
Range("m49").Value = yeni.cbili3.Value
Range("m50").Value = yeni.cbili4.Value
Range("p47").Value = yeni.okulu1.Value
Range("p48").Value = yeni.okulu2.Value
Range("p49").Value = yeni.okulu3.Value
Range("p50").Value = yeni.okulu4.Value
Range("s47").Value = yeni.yili1.Value
Range("s48").Value = yeni.yili2.Value
Range("s49").Value = yeni.yili3.Value
Range("s50").Value = yeni.yili4.Value
Range("t47").Value = yeni.gorevi.Value
Range("t48").Value = yeni.gorevi.Value
Range("t49").Value = yeni.gorevi.Value
Range("t50").Value = yeni.gorevi.Value
Range("s9").Value = yeni.kizlik.Value

 

[Hakan ERDOST]

Yok mu üstatlar bunun bir çözümü.Sicil raporları dolduracağım.en azından bir fikir verbilseniz.

 

[Hakan ERDOST]

Yanlış anlamayın ama kendi kendime yazıyorum herhalde .Yazacak kimse yok sanırım.Ben resmi bu kod ile alabiliyorum ama resmi bir türlü U8 hücresine alamadım.sorun bu.lütfen yanlış anlamayınız.Birde site çok yoğun ve yavaşlamış iyice.

 

[veyselemre]

Eski sorularınızdan hatırladığım kadarıyla U8 hücreniz birleştirilmiş hücre, dolayısıyla hata yapıyor olabilirsiniz. [U8] yerine [U8:U10] gibi birleştirilmiş hücrelerin adresini yazıp deneyin.

 

[Hakan ERDOST]

üstat bu sorun sabah okulda excel2007'de vardı, evde 2003 te hiçbir sorun yok.Anlamadım.Bir diğer sorun da resimi alırken boyutlandırmak mümkün mü? Mümkünse kodda nasıl bir değişklik yapılmalı.

 

[Hakan ERDOST]

Eski sorularınızdan hatırladığım kadarıyla U8 hücreniz birleştirilmiş hücre, dolayısıyla hata yapıyor olabilirsiniz. [U8] yerine [U8:U10] gibi birleştirilmiş hücrelerin adresini yazıp deneyin.

yok olmuyor.kafayı yiycem.aralık deniyorum olmuyor.İşin ilginci 2003 te sorun yok 2007 de u8 değil de alakasız bir yere alıyor (b4).

 

[veyselemre]

2007 deneme şansım olmadığı için birşey söyleyemeyeceğim,
boyutlandırma için aşağıdaki gibi deneyin.

On Error Resume Next
ActiveSheet.Shapes("tc").Delete
[u8].Select
ActiveSheet.Pictures.Insert("C:\Resim\" & [p8] & ".jpg").Select
Selection.Name = "tc"
Selection.Width = [u8:w14].Width
Selection.Height = [u8:w14].Height

 

[Hakan ERDOST]

teşekkürler veyseemre boyutlandırmayı

Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft

kodu ile yapmayı becermiştim .Am sizin kodunuz daha sağlıklı oldu.Sağolunuz.Ancak 2007 de olmuyor.Fotoğrafı alıp b4:b14 aralığına atıyor.Llaptopta 2003 var onda deniyorum sorun yok.Anlamadım gitti.İlginize tekrar teşekkürler.Bu arada fotoyu u8:u14 aralğığna almaya çalışıyorum.

 

[öğrtm]

bende de aynı problem var

hexadesimal bendede aynı sorun var bir türlü gideremedim.eğer giderebilirseniz kodu burada yayınlarsanız sevinirim.

 

[Hakan ERDOST]

hexadesimal bendede aynı sorun var bir türlü gideremedim.eğer giderebilirseniz kodu burada yayınlarsanız sevinirim.

bne 2007 den vazgeçtim.2003 te sorunsuz resim çekebiliyorum.Sanırım 2007 de bir sorun var ve beni aşıyır.arkadaşlar sağolsunlar ilgilendiler ama 2007 de olmadı bıraktım bende.