I believe I discovered the problem. The RightFooterPicture property is not available in Excel 2000, which is what I am using. A co-worker is using 2003 and it is there. So, thanks.
There is an error on .LeftFooterPicture.Filename. What am I missing? This is what I tried:
With ActiveSheet.PageSetup
.LeftFooterPicture.Filename = "P:\My Documents\Logos\shstrans.gif"
End With
End Sub
Is it possible to place a .gif in a footer of an Excel workbook? If so, what is the code to do that? Copy and paste will not work so I can't even try to generate any code in this instance by recording the macro.
After a good night's sleep I took one look at the code this morning and realized what was wrong. The first step in my process is to retrieve a file into my worksheet. I had placed your code before this step. So I was trying to take values from cells before those values were there. Thank you...
It's still not working - it's doing the same as I described previously. This is what I have in the first section of the macro.
Dim sHospital As String
Dim sPhone As String
Dim sPharmacist As String
With Worksheets("Medlist")
sHospital = .[C1]
sPhone = .[B1]
sPharmacist = .[D4]
End With
This is...
I meant to say after the procedure is run and printed, in the footer where I expect to see the information printing that are in the variables there is nothing. So for example on the left footer I only see
Hospital
Phone
but it should be
Hospital Good Samaritan
Phone (###)-###-####
where the...
Thank you for your reply and I copied your code into my macro exactly as you stated. Even though there is information in each of the cells on the spreadsheet, it appears that the variables are not being loaded with it and so nothing is printing out.
'First get the values in the cells
Dim Hospital As Variant
Dim Phone As Variant
Dim Pharmacist As Variant
Range("C1").Select
Hospital = ActiveCell.Value
Range("B1").Select
Phone = ActiveCell.Value
Range("D4").Select
Pharmacist = ActiveCell.Value
'Then put the variables in the footer and format...
In an Excel spreadsheet I would like to create a macro to get alpha numeric information from a particular cell, paste that information to the left footer, and then format it to size 12, bold, & italic. Then I want to take information from a different cell, paste it to the same footer after that...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.