Yazı Efekti Verme

Yazı Efekti Verme

Yazı Efekti Verme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.

Hazır Kod​

VBA:
Sub efekt()
  Dim ff, a, step, i As Integer
  ff = 6
  step = 3
  For a = 1 To 30
    ff = ff + step
    If ff > 15 Or ff < 8 Then step = -step
    For i = 1 To 20
[A1].Font.ColorIndex = a + 1
[A1].Font.Size = ff
    Next
  Next
  [A1].Font.Size = 16
End Sub

Açıklama​

A1 hücresindeki yazıya renk ve font boyutu efektleri uygular.

Faydalanılması temennisiyle
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst