Graphics on multiple sheets (Excel2k SR1a)

Topic

New Reply

Hi all, I am trying to work out how to insert a graphic onto many different sheets (ie a logo of some kind) by only inserting the graphic (logo) once ie into a setup sheet. On the target sheets I want to be able to set the size of the logo as required but I need to reference the graphic from the setup sheet.
Any ideas on how I can do this would be greatly appreciated!
Thanks
Brian.

Reply | Quote

Replies

This is an Excel97 code fragment that may give you some ideas.
“Picture 1” is the Excel shape object. In my case there was only one shape object; a picture.

Sub PictureResizeAndCopy()

On Error GoTo NoPicture
ActiveSheet.Shapes(“Picture 1”).Select
Selection.ShapeRange.ScaleHeight 0.5, True change picture size
Selection.ShapeRange.ScaleWidth 0.5, True
Selection.Copy
||||||<———– Put the destination sheet code here
Application.Goto Reference:=”R1C1″ This is destination position of logo
ActiveSheet.Paste

NoPicture:

End Sub

HTH

Reply | Quote

Thanks!
This looks like it will give me what I need as a starting point!
Regards
Brian.

Reply | Quote