Korumalı sayfada resim ekle butonu

Katılım
5 Şubat 2007
Mesajlar
85
Excel Vers. ve Dili
Office 2010-İngilizce
Altın Üyelik Bitiş Tarihi
13.06.2023
Merhaba,

Ekte kendimce mağazalar için hazırladığım form var. Formdaki formüller devamlı olarak bozulduğu için bu alanları korumalı yapmak zorunda kaldım fakat korumalı yaptıkdan sonra resim ekle (insert pictures) aktif olmuyor, Resim ekle butonu koydum ondada resim eklemiyor.
Sizlerin önerisi varmıdır? Yardımlarınızı rica ediyorum.

Teşekkürler.
 

Ekli dosyalar

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,800
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
resim ekle butonunu yanlış nesne seçerek koymuşunuz.
komut düğmesi yerine image nesnesi koyaçaksınız.

dosyanız ekte
 

Ekli dosyalar

Katılım
5 Şubat 2007
Mesajlar
85
Excel Vers. ve Dili
Office 2010-İngilizce
Altın Üyelik Bitiş Tarihi
13.06.2023
resim ekle butonunu yanlış nesne seçerek koymuşunuz.
komut düğmesi yerine image nesnesi koyaçaksınız.

dosyanız ekte
Dosyanızı inceledim güzel bir çalışma olmuş fakat bu dosyaya resim eklediğiniz zaman dosyanın boyutu 10 mb gibi birşey oluyor ve sıkıştırma yapılmıyor, ayrıca resmin boyutunu ayarlama gibi ihtimalimde olmuyor.

Sanırım işin içine macro girince dosya boyutu büyüyor. Bunun dışında farklı bir yöntem varmıdır? yoksa canınız sağolsun.

teşekkürler.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,800
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
dosyanıza 3 adet OptionButton düğmeleri ekleyiniz ve aşağıdaki koduda ekleyiniz.
resimleriniz 3 türlü değişik zom şekili alacaktır



Private Sub OptionButton1_Click()
Sheets("Sheet1").Image1.PictureSizeMode = fmPictureSizeModeClip
Sheets("Sheet1").Image1.Visible = False
Sheets("Sheet1").Image1.Visible = True
End Sub
Private Sub OptionButton2_Click()
Sheets("Sheet1").Image1.PictureSizeMode = fmPictureSizeModeStretch
Sheets("Sheet1").Image1.Visible = False
Sheets("Sheet1").Image1.Visible = True
End Sub
Private Sub OptionButton3_Click()
Sheets("Sheet1").Image1.PictureSizeMode = fmPictureSizeModeZoom
Sheets("Sheet1").Image1.Visible = False
Sheets("Sheet1").Image1.Visible = True
End Sub
 
Katılım
5 Şubat 2007
Mesajlar
85
Excel Vers. ve Dili
Office 2010-İngilizce
Altın Üyelik Bitiş Tarihi
13.06.2023
Teşekkürler, boyutlandırma oldu, ama dosya 9,5 mb dan aşşağı inmiyor.
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,800
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
netten araştır resim küçültme proğramları var resimlerinizin boyutunu düşürebilirsiniz.
 
Katılım
5 Şubat 2007
Mesajlar
85
Excel Vers. ve Dili
Office 2010-İngilizce
Altın Üyelik Bitiş Tarihi
13.06.2023
Korumalı sayfada resim eklemek

Rica ederim.
İyi çalışmalar.


Arkadaşlar merhaba,

Formda resim ekleme alanı bulunmakta sayfayı korumalı yaptığımda resim ekleme butonu pasif oluyor bunu düzeltmenin bir yolu varmıdır? yarımcı olursanız sevinirim.

Teşekkürler.
 

Ekli dosyalar

Üst