TextFrame2.VerticalAnchor = msoAnchorMiddle Set shp = ws.Shapes.AddShape(msoShapeRectangle, 5, 5, 5, 5) Set rng = ws.Range("A1:F10") 'Set range to fill with watermark Similar to Andrews post, this is the VBA version which formats the shape correctly and also allows direct selecting of cells.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |