çalışma sayfasına kod aynı ise resim ekleme

[netvolxxx]

Dosyaya resmi ekleyin. Taştığı şekliyle dosyayı ve ayrıca resmi buraya ekleyin.

merhaba ustad ekledim 2.jpg denermisiniz taşıyor
birde yapıda sadece rakam numeric değer ekleniyor bjk.jpg yazan kaydet deyince resim gelmiyor

 

[muygun]

Merhaba;
Sayısal Alfa sayısal sorununu çözdüm. Ama taşma olayını anlamış değilim. (benim denememde sorun gözükmüyor.)
Son ihtimal versiyon farkından olabilir.
Yinede eki deneyin.

 

[netvolxxx]

Merhaba;
Sayısal Alfa sayısal sorununu çözdüm. Ama taşma olayını anlamış değilim. (benim denememde sorun gözükmüyor.)
Son ihtimal versiyon farkından olabilir.
Yinede eki deneyin.

denedim ustad sayılsal sorun ok düzelmiş çok teşekkür ederim hücreye taşma olayı aynı da dediğin gibi de olabilir Version farkından dolayı şöyle bir kod var bunda tek hücrede taşan işe yarıyor ama buda çoklu hücrede işe yaramadı

b19:b80 yaptığımda olmadı

command buton resim olarak algılıyor şeklini değiştiriyor beceremedim geriye tek çarem resim boyutlarını 125 80 yapınca sorun çözülüyor...

yardımlarınız için çok teşekkür ederim....

With ActiveSheet.Pictures
.Left = Range("b19:B22").Left
.Height = Range("b19:b22").Height
.Width = Range("b19:B22").Width
.Top = Range("b19:B22").Top
End With