Sizing clip art

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I would like to insert clip art into a into cells that is already the size I
want them to be. How can I get it to fit? I am having to manually resize
every time.
 
Try this to insert it with code in B3

Sub test()
Dim myPict As Picture
With ActiveSheet.Range("B3")
Set myPict = .Parent.Pictures.Insert("C:\J0299125.wmf")
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With
End Sub
 
I re-posted this question in beginners because I couldn't follow this
response. I know how to type formulas for a column but I couldn't tell what
part of the reply was formula and what was explanation. If I want to put
clip art in C3 and I have the clip art in "My clip art organizer" (which is
new to me too!) what do I type in? Just say, for instance, that I want the
cell to be 1' by 1')
 
Hi Shookie

Better post back in the same thread
It is only possible with code to do this

The code example insert the file C:\J0299125.wmf in B# and make
it the same size as the cell.

Maybe this Tip from Dave will help you to rezize manual:

Manually, you can hold the alt-key down when you resize/move the picture. It'll
snap-to the edge of the cell.
 
Back
Top