Sayfada yazı büyütme.

[sward175]

Herkese Merhabalar.
Ekli dosyada şablonun büyüklüğünden dolayı %50 küçülterek işlem yapıyorum.
Sayfada yazı üzerine gelindiğinde yazıyı font 20 ve koyu renk olması için yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[kulomer46]

Merhaba

Alternatif bir çalışma Ek 'tedir.

Çalışma Şemasının bulunduğu sayfada dolu hücreler tıklandığınıda yakınlaştır %100 olmakta ve seçili hücre renklendirilmekte, boş hücreler tıklandığında yakınlaştır %50 olmakta ve renklendirilme kaldırılmaktadır.

Selamlar...

 

[YUSUF44]

Aşağıdaki kodla olabilir:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B18:AA28]) Is Nothing Then
    [B18:AA28].Font.Size = 12
    Target.Font.Size = 20
Else
    [B18:AA28].Font.Size = 12
End If
End Sub

 

[sward175]

Sayın. kulomer46,
İstediğim yazı üzerine gelince yada tıklanınca büyümesi.
Sizin kodlarınızla sayfa büyüyor.
Sayın, YUSUF44,
Sizin kodunuzu denedim fakat hiç bir değişin gözlemlemedim.
Saygılarımla,
sward175

 

[YUSUF44]

Kodları sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırdınız mı?

 

[sward175]

Yusuf Bey,
Evet aynen dediğiniz gibi yaptım.

 

[sward175]

Yusuf Bey,
Sizin kodlarınız ile ekli dosyayı görebilirsiniz.
Saygılarımla,
sward175

 

[YUSUF44]

Bir defaya mahsus aşağıdaki makroyu çalıştırır mısınız?

Sub aktif()
    Application.EnableEvents = True
End Sub

 

[sward175]

Yusuf Bey , Tekrar Merhaba,

18. satırdan sonra işlem yapıyor.

 

[sward175]

Yusuf Bey,
Seçili alanı B2:AA28 yaptım düzeldi,
Teşekkür ederim .
sward175