CommandButton yerine bir konulan resmin Yazdırılırken gizlenmesi

[Ergün Güler]

Selam,
Sayfamdaki CommandButton yerine bir resim koydum ve makro atadım.
Ancak koyduğum resim önizleme ve yazıcı çıktısında görünmesini istemiyorum. Nasıl yapabilirim?
(Önceden kullandığım CommandButton'u gizleyebiliyordum)

İkinci sorum;
CommandButton iken hücre çubuğunda görülen
=KAT("Forms.CommandButton.1";"") ne demektir?

İyi çalışmalar.

 

[İhsan Tank]

Selam,
Sayfamdaki CommandButton yerine bir resim koydum ve makro atadım.
Ancak koyduğum resim önizleme ve yazıcı çıktısında görünmesini istemiyorum. Nasıl yapabilirim?
(Önceden kullandığım CommandButton'u gizleyebiliyordum)

İkinci sorum;
CommandButton iken hücre çubuğunda görülen
=KAT("Forms.CommandButton.1";"") ne demektir?

İyi çalışmalar.

merhaba
birinci sorunuzun cevabı
eklediğiniz resime sağ tuş tıklayıp
resim biçimlendir
üst sekmelerden
özellikler
nesneyi yazdır'ın tikini kaldırın

 

[Ergün Güler]

Çok Teşekkürler,
Nasıl görmemişim? çok sağolun.
peki
=KAT("Forms.CommandButton.1";"")
ne demektir?

 

[İhsan Tank]

Çok Teşekkürler,
Nasıl görmemişim? çok sağolun.
peki
=KAT("Forms.CommandButton.1";"")
ne demektir?

rica ederim
ikinci sorunuzun cevabını bilmiyorum tahminen şu olabilir

ad kutusunda CommandButton1 bu yazıyor
formül yerinde ise =KAT("Forms.CommandButton.1";"") bu yazıyor

mesela biz bir hücreye formül girmeye kalktığımız ise

örnegin b7 olsun
ad kutusunda hanfi fornkisyonu yaacak isek o çıkıyor
formül yerinde ise =topla(a1:a65536) gibi

commanbutton'da ise formül yazamayacağımıza göre buraya kendisi otomatik oraya formül tarzı bir şey yazıyor
umarım açıklayabilmişimdir.
not : sadece tahmin

 

[security]

Çok Teşekkürler,
Nasıl görmemişim? çok sağolun.
peki
=KAT("Forms.CommandButton.1";"")
ne demektir?

Merhaba örnek kodları deneyiniz.. açıklayıcı olacaktır...

Private Sub CommandButton1_Click()
'Coder By Security 2010
Dim i As Byte, c As OLEObject
For i = 1 To 10
With ActiveSheet.Range("A" & 0+ i)
Set c = ActiveSheet.OLEObjects.Add(ClassType:="Forms.commandbutton.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
End With
Next
End Sub

a1 ile a10 arasına 10 adet buton ekler...

 

[Ergün Güler]

Arkadaşlar ilginize çok teşekkür ederim.
Ancak, çok fazla birşey anlamadım. Biraz aceleci davrandım. Zamanla öğreneceğiz.
Birşey denedim;
tasarım modunda iken CommandButton'u şeçtim ve
=KAT("Forms.CommandButton.1";"") kısmını sildim. Düğme normal resim oldu. bana ilginç geldi. Daha sonra tekrar düzeltemedim.