DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
söz konusu dosyada makroyla değil ama makroyla da yapabilirim.
Yazdırma işlemi makro ile mi yapıyorsunuz.
.
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Visible = msoFalse
Next i
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Visible = msoTrue
Next i
Teşekkürler üstadım, bu yöntemi uygulayacağım, sağlıcakla kalın.
Sayfadaki nesneleri gizlemek için kod:
Sayfadaki nesneleri göstermek için kod:Kod:For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Visible = msoFalse Next i
.Kod:For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Visible = msoTrue Next i
Teşekkürler üstadım, bu yöntemi bilmiyordum, denedim oldu, çok sağolun, sağlıcakla kalınResme sağ tıklayıp özelliklerini açtığınızda menülerden birinde “nesneyi yazdır” vardır. Onun işaretini kaldırırsanız yazdırılmaz. Bu özellik düğme gibi nesnelerde de vardır.