یک ماکروی زیبا و مهیج :
Sub TestGlowAndReflection()
On Error Resume Next
With Selection.Range
With .Font
.Size = 24
.ColorIndex = wdRed
With .Glow
.Color.ObjectThemeColor = wdThemeColorAccent1
.Radius = 10
.Transparency = 0.8
End With
With .Reflection
.Offset = 2.4
.Blur = 0.5
.Size = 100
.Transparency = 0.5
End With
End With
End With
End Sub
حال بخشی از یک متن را انتخاب کرده و ماکروی بالا را اجرا کنید. نتیجه ای شبیه پاراگراف دوم تصویر زیر را مشاهده خواهید کرد :
0 نظر
تازه ترین ها