Resim ekleme-boyutlandırma..

[k0081]

Merhaba arkadaşlar;

Excel de ; eklediğimiz bir resmi standart bir ölçüye ve belirlemiş olduğum bir hücreye nasıl ekleyebilirim ?


http://s3.dosya.tc/server16/tr2RAB/resimekle.xlsx.html

yardımcı arkadaşa şimdiden teşekkürler.

 

[halit3]

Merhaba arkadaşlar;

Excel de ; eklediğimiz bir resmi standart bir ölçüye ve belirlemiş olduğum bir hücreye nasıl ekleyebilirim ?


http://s3.dosya.tc/server16/tr2RAB/resimekle.xlsx.html

yardımcı arkadaşa şimdiden teşekkürler.

Dosyanızda resim yok?

 

[k0081]

Dosyanızda resim yok?

Hocam resim yok, evet, eklemek istiyorum,, herhangi bir resim olabilir...

Resim ekle butonuna basınca bana hücre adresini sorup, ve o hücredeki gibi (mesela B5 diğerleride, aynı boyutta) otamatik resmi boyutlandırmak amacım...

Şu anda Tabloyu şu şekilde kullanıyorum;

1-Ekle menusu -Dosyadan resim ekle
2- Resmin Sol alt köşesini ,B5 hücresinin sol alt köşesine Taşıyorum.
3- Resmin Sağ üst köşesini, B5 hücresinin sağ üst köşesine sündürüyorum, eşitliyorum..

 

[halit3]

Hocam resim yok, evet, eklemek istiyorum,, herhangi bir resim olabilir...

Resim ekle butonuna basınca bana hücre adresini sorup, ve o hücredeki gibi (mesela B5 diğerleride, aynı boyutta) otamatik resmi boyutlandırmak amacım...

Şu anda Tabloyu şu şekilde kullanıyorum;

1-Ekle menusu -Dosyadan resim ekle
2- Resmin Sol alt köşesini ,B5 hücresinin sol alt köşesine Taşıyorum.
3- Resmin Sağ üst köşesini, B5 hücresinin sağ üst köşesine sündürüyorum, eşitliyorum..

Sorunuzu kendiniz anlıyorsunuz ben cevap vermek istiyorum ama sorunuzu anlamıyorum.

1-Sayfada bir resim yok.
2-Sayfaya bir resimi kod ilemi getireceksiniz.
3-Eğer kod ile gelecekse resimler bilgisayarın neresinde
4-Eğer kod ile gelecekse resim isimleri nereden songulanacak.


ve benzer bir sürü soru?
cevap vermek çözüm olmuyorki sonra ben şöyle demiştim surusuna mehal vermemek için emeklerde boşuna gitmesin gereksiz mesajlaşmıyalım.

 

[k0081]

1-Sayfada bir resim yok.
2-Sayfaya bir resimi kod ilemi getireceksiniz.
3-Eğer kod ile gelecekse resimler bilgisayarın neresinde
4-Eğer kod ile gelecekse resim isimleri nereden songulanacak.

***********************

Hocam şu şekilde;

1- sayfanın orjinali böyle olacak boş yani. resim yok. (Çalışma bitiminde dosyayı farklı kayıt yapacağım)
2- sayfaya bir resmi kod ile getireceğiz evet ; yalnız dialog penceresi açılacak, resimi seçeceğim.
3-Bilgisayarda herhangi bir klasörde.
4- " "

bir önceki mesajımda tabloyu şu an nasıl kullandığımı anlattım. bunu Otamatik olarak yapmanın bir yolu varmı dır, bu soruya cevap arıyorum.. Teşekkürler.

 

[halit3]

1-Sayfada bir resim yok.
2-Sayfaya bir resimi kod ilemi getireceksiniz.
3-Eğer kod ile gelecekse resimler bilgisayarın neresinde
4-Eğer kod ile gelecekse resim isimleri nereden songulanacak.

***********************

Hocam şu şekilde;

1- sayfanın orjinali böyle olacak boş yani. resim yok. (Çalışma bitiminde dosyayı farklı kayıt yapacağım)
2- sayfaya bir resmi kod ile getireceğiz evet ; yalnız dialog penceresi açılacak, resimi seçeceğim.
3-Bilgisayarda herhangi bir klasörde.
4- " "

bir önceki mesajımda tabloyu şu an nasıl kullandığımı anlattım. bunu Otamatik olarak yapmanın bir yolu varmı dır, bu soruya cevap arıyorum.. Teşekkürler.

Dialog penceresiyle sadece bir resim gelir.
Oysa dosyanızda 4 adet resim için birleştirilmiş hücre mevcut

 

[halit3]

Böyle bir yol alamıyacağız galiba.

Küçük bir kod

Bu kod seçili hücreye diyalog nesnesinden seçilen resmi getiriyor.

kod:

Private Sub CommandButton1_Click()

Dosya = Application.GetOpenFilename("All Files (*.*),*.*.")
If Dosya = False Then
MsgBox "Veri alınacak dosyayı seçmediniz.", vbInformation, "DİKKAT"
Exit Sub
Else
End If

Set Adres = Range(ActiveWindow.RangeSelection.Address)
ActiveSheet.Pictures.Insert(Dosya).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Top = Adres.Top + 2
Selection.Left = Adres.Left + 2
Selection.ShapeRange.Height = Adres.Height - 3
Selection.ShapeRange.Width = Adres.Width - 3
Cells(1, 1).Select

End Sub

 

[k0081]

halit3;

Hocam çok teşekkür ediyorum, Tamamdır.. Aynen budur. Resimleri tek , tek seçmem gerekiyor zaten .. Saygılar..

 

[cagdaser]

benim de çok işime yaradı teşekkürler