Sizing clip art

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Shookie - 10 Sep 2006 00:51 GMT

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.

Reply to this Message

Ron de Bruin - 10 Sep 2006 15:57 GMT

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

Signature

Regards Ron de Bruin
http://www.rondebruin.nl

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

Reply to this Message

Shookie - 10 Sep 2006 17:31 GMT

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

> Try this to insert it with code in B3
>
[quoted text clipped - 13 lines]
> > want them to be. How can I get it to fit? I am having to manually resize
> > every time.

Reply to this Message

Ron de Bruin - 10 Sep 2006 17:38 GMT

Hi Shookie

>>I re-posted this question in beginners because I couldn't follow this

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.

Signature

Regards Ron de Bruin
http://www.rondebruin.nl

>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
[quoted text clipped - 20 lines]
>> > want them to be. How can I get it to fit? I am having to manually resize
>> > every time.

Reply to this Message

Rate this thread: