Sizing clip art

[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.

 

[Ron de Bruin]

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

 

[Guest]

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')

 

[Ron de Bruin]

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.