Add background from image on worksheet w/ VBA

[Cease]

Hi everyone,
I have a Workbook that I email to users, and from this workbook the users send emails to their team (these emails are one sheet from the workbook, that changes with data validation). I'm trying to find a way to have those sheets have a background, and feel that I am close.

I know how to apply a background from a file, and thought I could alter it, yet I'm having little success.

As it is now, I have the pictures stored on sheet named: "Picky"
and need to apply them to "Sheet1"
Here's the code that I have

Sub newback()
    Dim Pic As Excel.Picture
    Windows("Beast.xlsm").Activate
    Set Pic = Worksheets("Picky").Pictures("ForcePic")
    Windows("Selection of Beast.xlsm May-16-2011.xlsx").Activate
    Sheets("Sheet1").Select
     ActiveSheet.SetBackgroundPicture Filename:= Pic
End Sub

This returns an error saying Type Mismatch.
Makes sense since it's not from a File, I've just been able to find proper syntax for this operation.

Anyone have any idea how I can get this to work?

Thank you for your time!

 

[Jaafar Tribak]

See if you can adapt the code here post 15

 

[Cease]

Jafaar,
Thank you so much for the response, I'm looking through the code and will try it out.
This seems like a really good option to set up what I was looking for.

Thanks!

 

[Cease]

Jafaar,
I apologize, I couldn't make it work with the example you gave me, largely due to my ignorance of VBA.

I found something else that converts a chart to a picture, and tailored it to show like this:

Sub Pickback()
Dim ForcePic As String
    ForcePic = Environ$("temp") & "\Beast1.jpg"
    ActiveWorkbook.Worksheets("Picky").ChartObjects("Picture 2").Chart.Export _
        Filename:=ForcePic, FilterName:="JPG"
    ActiveWindow.Sheets("The Force").Activate
    ActiveSheet.SetBackgroundPicture ForcePic
    Kill ForcePic
 
End Sub

My problem being that I'm not dealing with a chart, and I don't know the syntax to change this to work for a picture.
I tried a lot of changes but can't seem to get them right.

Any thoughts?

Thank you!!

 

[Cease]

I got it!!
So I inserted a blank chart, filled the background with the picture and voila.
Oh that's awesome.

Thank you for your help!