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

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