Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.
|show a right-click button if only inside a rich text content control in word (VBA)||9||86|
|VBA Word Form with VBA: how can I detect when the user has used an arrow key to select a different button?||15||48|
|is it possible to scan a document directly into Microsoft Word 2013?||14||118|
|Excel 2016 lost MRU list||8||97|
Join the community of 500,000 technology professionals and ask your questions.