Code for Picture Tiling Options

F

F-150 Phill

New Member
Joined
May 19, 2011
Messages
17
Hi all,

I've been doing tons of searching and haven't found any answers to this question.:oops: 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:

PictureFill.jpg


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

Thanks in advance!
 

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
Sort by date Sort by votes
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.

Code: 
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
 
Last edited:
Upvote 0
That worked PERFECT!! :biggrin: 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!!(y)
 
Upvote 0
F-150 Phill said:
That worked PERFECT!! :biggrin: 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!!(y)
Click to expand...

Glad to help. Thanks for letting me know it worked out.
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Solved
Macro Fit a image in a cell acording to his size.
Replies
2
Views
1K
Merenat
M
gravanoc
  • Solved
Dynamic pictures with UserForms - operation too slow sometimes
Replies
2
Views
455
gravanoc
gravanoc
garak0410
  • Question
VBA - How To Re-Protect With Same Options
Replies
3
Views
605
garak0410
garak0410
Jaafar Tribak
  • Question
Blurring images using Direct2D & Windows Imaging Component
Replies
3
Views
250
Dan_W
D
N
  • Question
macros to insert picture in active cell, but picture appears more shifted out of position the higher the row
2
Replies
12
Views
3K
needhelp9009
N

Forum statistics

Threads
1,214,826
Messages
6,121,795
Members
449,048
Latest member
greyangel23

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top