Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Anchor Position of pictures

Posted on 2003-10-23
2
Medium Priority
?
535 Views
Last Modified: 2011-10-03
Hello,

Is there a way to get the position of the anchor a picture inserted in a word document using vba?

regards
0
Comment
Question by:vblycos
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 44

Accepted Solution

by:
bruintje earned 200 total points
ID: 9612388
the problem is this property is exposed through the shape object not an inlineshape

so if your pictures are inlineshapes and you don't mind converting them to shapeobjects you could do something like

Dim iShape As InlineShape
Dim oShape As Shape
Dim lHort As Double
  For Each iShape In ThisDocument.InlineShapes
    Set oShape = iShape.ConvertToShape
    lHort = oShape.Anchor.Information(wdHorizontalPositionRelativeToPage)
    MsgBox lHort
  Next

that will display the horizontal anchor

if you want to keep the inlineshapes [because they can wrap text around them] then maybe someone else has an idea
0
 
LVL 4

Author Comment

by:vblycos
ID: 9618693
Thanks bruintje..I used your solution of shapeobjects....that seems to be giving fair results sofar...Thanks!

0

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how you can use Custom Document Properties to store settings and other information in your workbook so that they will be available the next time you open the workbook.
New style of hardware planning for Microsoft Exchange server.
The viewer will learn how to  create a slide that will launch other presentations in Microsoft PowerPoint. In the finished slide, each item launches a new PowerPoint presentation and when each is finished it automatically comes back to this slide: …
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

688 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question