Status: Solved
Priority: Medium
Security: Public
Views: 249
Last Modified: 2012-08-13

Macro question

Hi,

The following code works well for what I need but I have one question/inquery - it relies on a bookmark on the page where the image is to be inserted - can I modify this and use something like activeDocument so I don't have to use bookmarks?

sbsbats

Asked: 2011-10-06

Advertise Here

Visual Basic Classic

1 Solution

sbsbatsAuthor Commented: 2011-10-06

Sub InsertPictureShape()
Dim sh As Shape
With ActiveDocument
Set sh = .Shapes.AddPicture("C:\image\sbs.png", False, True, , , , .Bookmarks("logo").Range)
sh.RelativeHorizontalPosition = wdRelativeHorizontalPositionLeftMarginArea
sh.RelativeVerticalPosition = wdRelativeVerticalPositionTopMarginArea
sh.Top = CentimetersToPoints(0.8)
sh.Left = CentimetersToPoints(12.2)
End With
End Sub

LVL 77

GrahamSkanRetiredCommented: 2011-10-06

The code uses ActiveDocument.Bookmarks("logo").Range. That's how the With block works.

You have to specify where you want the picture. If you don't know it in terms of the Word object, can you describe in words where you need the picture?

sbsbatsAuthor Commented: 2011-10-06

on the active page - i.e if the doc has more than one page then the page with the cursor on it

LVL 77

GrahamSkanRetiredCommented: 2011-10-06

Try this.

Sub InsertPictureShape()
Dim sh As Shape
With ActiveDocument
  Set sh = .Shapes.AddPicture("C:\image\sbs.png", False, True, , , , Selection.Paragraphs(1).Range)
    sh.RelativeHorizontalPosition = wdRelativeHorizontalPositionLeftMarginArea
    sh.RelativeVerticalPosition = wdRelativeVerticalPositionTopMarginArea
    sh.Top = CentimetersToPoints(0.8)
    sh.Left = CentimetersToPoints(12.2)
    End With
End Sub

Open in new window

sbsbatsAuthor Commented: 2011-10-06

Graham, you are a legend - thanks for your help with this

sbsbatsAuthor Commented: 2011-10-06

exactly what I needed

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Macro question

Join & Write a Comment Already a member? Login.

Featured Post