Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Here is my actual macro that I use that stopped working
Sub AddShapeAtBookMark() Dim sh As Shape Dim rng As Range Set rng = ActiveDocument.Bookmarks("bmk1").Range Set sh = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 30, 10, rng) sh.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage sh.RelativeVerticalPosition = wdRelativeVerticalPositionPage sh.Left = rng.Information(wdHorizontalPositionRelativeToPage) sh.Top = rng.Information(wdVerticalPositionRelativeToPage) + 12 End Sub
Set kl = ActiveDocument.Shapes.AddPicture(FileName:=imagePath, _ LinkToFile:=False, _ SaveWithDocument:=True, Width:=35, _ Height:=35) kl.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage kl.RelativeVerticalPosition = wdRelativeVerticalPositionPage kl.Left = rng.Information(wdHorizontalPositionRelativeToPage) kl.Top = rng.Information(wdVerticalPositionRelativeToPage)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.