trouble Copying as a webpage

[daniels012]

Below is the code I am using to convert my file to a webpage. It work
ok.

I use buttons at the top of our proposals. When I open the file as a
webpage it has these buttons at the top. Is there a way to get rid o
them? When I print the proposal, the buttons don't show! Any hel
would be greatly appreciated.

Michael


ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\WINDOWS\Personal\Emailed Proposals\Proposal" & _
Str(Application.Range("N2").Value), "FRONT", "", xlHtmlStatic, _
"Proposal for XL_16777", "").Publish (True)
ChDir "C:\WINDOWS\Personal\Emailed Proposals"
Range("K1").Select
End Su

 

[Debra Dalgleish]

You could cut the button, save as a web page, then paste the button:

Sheets("FRONT").Shapes("Button 1").Cut
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\WINDOWS\Personal\Emailed Proposals\Proposal" & _
Str(Application.Range("N2").Value), "FRONT", "", xlHtmlStatic, _
"Proposal for XL_16777", "").Publish (True)
ChDir "C:\WINDOWS\Personal\Emailed Proposals"
Sheets("FRONT").Paste
Range("K1").Select