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.
Faydalanılması temennisiyle
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