Code for Picture Tiling Options

[F-150 Phill]

Hi all,

I've been doing tons of searching and haven't found any answers to this question. I'm looking for code to edit the tiling options for the fill picture of a shape. I have been able to add the image to the shape using the following code:


Sub AddImage()

MyPic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")

ActiveSheet.Shapes("Shape 1").Fill.UserPicture MyPic

End Sub


Now i need to edit the picture fill properties where the "Tile Picture as texture" checkbox is checked. I need to set the Offset (X&Y) and Scale (X&Y) using values that are on the excel sheet. All the properties in the red box:

I could guess all day and never get the right code to make it work. Help anybody?

Thanks in advance!

 

[BiocideJ]

These are the appropriate methods. You can assign them via Cell References relatively easily from this, but if you have problems, let me know what your ranges are and I can edit.

Sub AddImage()
MyPic = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")
With ActiveSheet.Shapes("Shape 1").Fill
    .UserPicture MyPic
    .TextureOffsetY = 0
    .TextureOffsetX = 0
    .TextureHorizontalScale = 0.276
    .TextureVerticalScale = 0.276
 
End With
End Sub

 

[F-150 Phill]

That worked PERFECT!! I input = Range("...").Value for the cell references and it worked exactly as I wanted it to!

Thank you VERY MUCH for your help and fast reply!!

 

[BiocideJ]

That worked PERFECT!! I input = Range("...").Value for the cell references and it worked exactly as I wanted it to!

Thank you VERY MUCH for your help and fast reply!!

Glad to help. Thanks for letting me know it worked out.