software

I have developed a number of spreadsheets in Excel 2003 that I will be
sharing with schools. I want each school to be able to insert their own
school logo so that it appears on each sheet. I have a menu page and was
looking for a way to insert a logo on that page and then paste link it or
some similar method.

Good afternoon. It you find something you can use on Mr. McGimpsey's site:
www.mcgimpsey.com/excel/lookuppics.html. Good luck.
--
Sincerely, Michael Colvinquot;smallschooliequot; wrote:

gt; I have developed a number of spreadsheets in Excel 2003 that I will be
gt; sharing with schools. I want each school to be able to insert their own
gt; school logo so that it appears on each sheet. I have a menu page and was
gt; looking for a way to insert a logo on that page and then paste link it or
gt; some similar method.

Michael
Thanks for the info - no luck with my problem but a useful reference page
anyway.
Paul

quot;Michaelquot; wrote:

gt; Good afternoon. It you find something you can use on Mr. McGimpsey's site:
gt; www.mcgimpsey.com/excel/lookuppics.html. Good luck.
gt; --
gt; Sincerely, Michael Colvin
gt;
gt;
gt; quot;smallschooliequot; wrote:
gt;
gt; gt; I have developed a number of spreadsheets in Excel 2003 that I will be
gt; gt; sharing with schools. I want each school to be able to insert their own
gt; gt; school logo so that it appears on each sheet. I have a menu page and was
gt; gt; looking for a way to insert a logo on that page and then paste link it or
gt; gt; some similar method.

Sorry about that. Good luck with your project and Merry Christmas.
--
Sincerely, Michael Colvinquot;smallschooliequot; wrote:

gt; Michael
gt; Thanks for the info - no luck with my problem but a useful reference page
gt; anyway.
gt; Paul
gt;
gt; quot;Michaelquot; wrote:
gt;
gt; gt; Good afternoon. It you find something you can use on Mr. McGimpsey's site:
gt; gt; www.mcgimpsey.com/excel/lookuppics.html. Good luck.
gt; gt; --
gt; gt; Sincerely, Michael Colvin
gt; gt;
gt; gt;
gt; gt; quot;smallschooliequot; wrote:
gt; gt;
gt; gt; gt; I have developed a number of spreadsheets in Excel 2003 that I will be
gt; gt; gt; sharing with schools. I want each school to be able to insert their own
gt; gt; gt; school logo so that it appears on each sheet. I have a menu page and was
gt; gt; gt; looking for a way to insert a logo on that page and then paste link it or
gt; gt; gt; some similar method.

Maybe you could put all the logos on a separate worksheet. Then hide that
sheet.

Give the user a macro that would allow them to copy their logo to each of the
worksheets in that workbook.

I created a worksheet named Pictures. I dropped a few pictures in that sheet,
then hid that sheet.

I created a worksheet named Index and added a combobox and a commandbutton (both
from the control toolbox toolbar).

I rightclicked on the Index worksheet tab and selected view code and pasted this
in:

Option Explicit
Dim blkProc As Boolean
Private Sub ComboBox1_Change()

Dim mySheetNames As Variant
Dim myPict As Picture
Dim wks As Worksheet
Dim myAddr As String
Dim LogoName As String

If blkProc = True Then Exit Sub

If Me.ComboBox1.ListIndex = -1 Then Exit Sub

mySheetNames = Array(quot;Sheet2quot;, quot;sheet3quot;, quot;sheet5quot;)
myAddr = quot;A1:B3quot;
LogoName = quot;SchoolLogoquot;

Set myPict = Nothing
On Error Resume Next
Set myPict = Me.Parent.Worksheets(quot;Picturesquot;) _
.Pictures(Me.ComboBox1.Value)
On Error GoTo 0
If myPict Is Nothing Then
MsgBox quot;Please refresh and try again.quot; amp; vbLf amp; _
quot;Contact xxxx at #### if it fails a second time!quot;
Exit Sub
End If

Application.ScreenUpdating = False

For Each wks In Me.Parent.Worksheets(mySheetNames)
On Error Resume Next
wks.Pictures(LogoName).Delete
On Error GoTo 0

myPict.Copy
wks.Paste

wks.Select
ActiveCell.Activate

Set myPict = wks.Pictures(wks.Pictures.Count) 'the one just added

With wks.Range(myAddr)
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
End With

myPict.Name = LogoName

Next wks

Me.Select

End Sub

Private Sub CommandButton1_Click()
Dim myPict As Picture
With Me.ComboBox1
blkProc = True
.Clear
blkProc = False
For Each myPict In Me.Parent.Worksheets(quot;Picturesquot;).Pictures
.AddItem myPict.Name
Next myPict
End With
End Sub

Change this:
Array(quot;Sheet2quot;, quot;sheet3quot;, quot;sheet5quot;)
to the sheetnames that should get the logo.
smallschoolie wrote:
gt;
gt; I have developed a number of spreadsheets in Excel 2003 that I will be
gt; sharing with schools. I want each school to be able to insert their own
gt; school logo so that it appears on each sheet. I have a menu page and was
gt; looking for a way to insert a logo on that page and then paste link it or
gt; some similar method.

--

Dave Peterson

Dave
Thanks for the ideas it helped me work through the problem.
Have a great new year.

Regards
Paul

quot;smallschooliequot; wrote:

gt; I have developed a number of spreadsheets in Excel 2003 that I will be
gt; sharing with schools. I want each school to be able to insert their own
gt; school logo so that it appears on each sheet. I have a menu page and was
gt; looking for a way to insert a logo on that page and then paste link it or
gt; some similar method.

Glad it worked for you.

smallschoolie wrote:
gt;
gt; Dave
gt; Thanks for the ideas it helped me work through the problem.
gt; Have a great new year.
gt;
gt; Regards
gt; Paul
gt;
gt; quot;smallschooliequot; wrote:
gt;
gt; gt; I have developed a number of spreadsheets in Excel 2003 that I will be
gt; gt; sharing with schools. I want each school to be able to insert their own
gt; gt; school logo so that it appears on each sheet. I have a menu page and was
gt; gt; looking for a way to insert a logo on that page and then paste link it or
gt; gt; some similar method.

--

Dave Peterson