Resİm BÜyÜten Kod

[ANTALYA 01]

Merhaba

Exel sayfasındaki her hangi bir resme Tıkladıkça Büyütülüp Küçültülebilir mi ?

 

[Leoncio]

Merhaba;

Aşağıdaki İşlemleri Yaparsan Bir Şeyler Yapmış Oluruz gibi..
Resminiz C:\Resimler\Resim1.Gif Olarak Kabul edersek;
Denetim Araç Çubuğundan (ing: Control toolbox) Image1 Nesnesi Ekleyin.Sonra Sayfanın Kod Bölümüne (Sayfa sekmesi Üstünde İken Sağ tuş Yapıp Kodu Görüntüle (ing:Wiev Kode) Basın) Aşağıdaki Makroyu sayfanın Kod Bölümüne ekleyin

Private Sub Image1_Click()
Image1.Picture = LoadPicture("C:\Resimler\Resim1.gif")
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Width = 100
Image1.Height = 100
End Sub

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Image1.Width = 200
Image1.Height = 200
End Sub


Mausla Tek Tıklamada Küçülür, Çift tıklamada Büyür eğer Tıklamda n yapmak İstiyorsanız
Yani Mause'nin Üstüne gelince büyümesini İstiyorsanız

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Width = 200
Image1.Height = 200
End Sub

 

[ANTALYA 01]

X

Deniyeceğim bir örnek dosya olsa daha iyi olurdu fakat resimler exel sayfasında mevcut jpeg oLARAK Sayfada Peronele ait çalışma ağacı yaptım fotografları mevcut FOtografı altında görevi resmi tıklayınca büyüyüp küçülsün istiyorum resimler çok küçüldü çünkü

 

[ANTALYA 01]

D

Örnek Dosya ektedir.

 

[Seyit Tiken]

Ekli dosyayı inceleyin.

 

[ANTALYA 01]

D

Mükemmel olmuş ya allah razı olsun inanmadım süper tam istediğim gibi
çok ama çok teşekkürler