یک ماکروی زیبا و مهیج :
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 WithEnd Subحال بخشی از یک متن را انتخاب کرده و ماکروی بالا را اجرا کنید. نتیجه ای شبیه پاراگراف دوم تصویر زیر را مشاهده خواهید کرد :
0 نظر
تازه ترین ها