
یک ماکروی زیبا و مهیج :
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ |
Sub TestGlowAndReflection() On Error Resume Next With Selection.Range With .Font .Size = ۲۴ .ColorIndex = wdRed With .Glow .Color.ObjectThemeColor = wdThemeColorAccent1 .Radius = ۱۰ .Transparency = ۰.۸ End With With .Reflection .Offset = ۲.۴ .Blur = ۰.۵ .Size = ۱۰۰ .Transparency = ۰.۵ End With End With End With End Sub |
حال بخشی از یک متن را انتخاب کرده و ماکروی بالا را اجرا کنید. نتیجه ای شبیه پاراگراف دوم تصویر زیر را مشاهده خواهید کرد :