Export custom Macro Button Images

  • Thread starter Thread starter RWN
  • Start date Start date
R

RWN

Home -> xl2kPro, Work->xl'03
I routinely create macro's for various functions (Personal.xls) and export them to/from
work - no problems there

I also create custom button images and would like to export them as well.
Is there a way to do this or are they "hidden away" within the Button bar file?
 
This code (adapted from the Recorder) runs in a workbook called nurdel.xls
and assumes that N11 is free (you can use any cell). A button has already
been created with an image on it. The code:

1. copies the button and pastes the image onto the worksheet
2. saves the file as html
3. saves the file as xls

The html save produces a folder called nurdel_files. In the folder is a jpg
file containing the picture that originally appeared in the button.

Sub snap_it()
ActiveSheet.Shapes("CommandButton1").Select
Selection.Copy
Range("N11").Select
With ActiveSheet
..PasteSpecial Format:="Picture (JPEG)", Link:=False, DisplayAsIcon:=False
End With

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Owner\Desktop\nurdel.htm", FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Owner\Desktop\nurdel.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
 
Back
Top