Set offset properties of a picture

charm · #1 11-01-2014, 02:00 AM

Hi Experts,

I am here again with a new question, I googled a lot but couldnt find the answer.

I have inserted a picture in autoshape using these lines

Code:

Set shp = Sld.Shapes.AddShape(5, 110, 0, 200, 100)
    shp.Fill.UserPicture "C:\Documents and Settings\charm\Desktop\charm.jpg"

How can I change the Offsets properties with the vba code so that picture should come at top left corner of the autoshape.

Thanks,
charm

JohnWilson · #2 11-01-2014, 05:41 AM

Don't really see what you mean but you can set offsets like this. Note the value is in POINTS (72 points=1 inch, 28.4 points = 1 cm)

Code:

    shp.PictureFormat.Crop.PictureOffsetX = 72
    shp.PictureFormat.Crop.PictureOffsetY = 72

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Data validation list filter with range defined by OFFSET	Mango123	Excel	4	03-18-2014 02:52 PM
Updating Document Properties without using advanced properties dialogue	thedr9wningman	Word VBA	3	01-20-2014 05:56 PM
Syntax to use OFFSET() in a cell formula?	dlowrey	Excel	3	07-09-2013 09:15 AM
Picture properties bug in Word 2010 Macro Recorder	ralphpickering	Word VBA	5	10-24-2012 10:15 AM
Vlookup, offset, match & countif	jujuwillis	Excel	2	10-15-2011 11:06 AM