On my sheets for students I like to add my top tips in a golden-yellow shape that stands out from the paper:
Anything in the golden 3D rectangle stands out to the student, but it is also separate from the Chemistry so doesn’t distract from it.
Making a rectangle then adding the bevelling requires a lot of clicks so I used to copy the rectangle from another document. But now I have a symbol on the Quick Access Toolbar so that one click gives me the bevelled golden rectangle with some sample text inside, in Arial font 11 justified with single line spacing:
The code below will add such a rectangle to your resources:
Sub DrawRectangle() Dim Shp As Shape, sngTop As Single, sngLeft As Single With Selection.Characters sngTop = .First.Information(wdVerticalPositionRelativeToPage) – 12 sngLeft = .First.Information(wdHorizontalPositionRelativeToPage) End With Set Shp = ActiveDocument.Shapes.AddShape(Type:=5, Left:=sngLeft, Top:=sngTop, Width:=72, Height:=36) With Shp .Fill.ForeColor.RGB = RGB(255, 230, 153) .TextFrame.TextRange.Text = “some text” .TextFrame.TextRange.Font.Size = 11 .TextFrame.TextRange.Font.Name = “Arial” .TextFrame.TextRange.Font.Color = Black .ThreeD.BevelTopType = msoBevelCoolSlant With .Line .ForeColor.RGB = RGB(255, 217, 102) .ForeColor.TintAndShade = 0# .Visible = msoTrue .Weight = 2.25 .Style = msoLineSingle End With End Sub