Comments on: Extract the First 4400 Images from Excel 2003 (and Above) and Transfer to a Database Table

By: Charles Hooper

Charles Hooper — Thu, 08 Sep 2011 15:53:10 +0000

Jason,

Thank you for sharing your modified version of this solution.

By: Jason B

Jason B — Wed, 07 Sep 2011 22:44:20 +0000

Oops! Typo in the code above. All the directories need to be consistent.

Private Sub ExtractImagesFromCustomToolbar()

    Dim i As Integer
    Dim picPicture As stdole.IPictureDisp
    Dim picMask As stdole.IPictureDisp

    On Error Resume Next

    If Len(Dir("C:\Excel_2003_Toolbar_Images", vbDirectory)) < 4 Then
        'Create the folder to hold the exported pictures
        MkDir "C:\Excel_2003_Toolbar_Images"
    End If

        For i = 1 To 32  'Must set number of controls manually (count the items in your custom toolbar)

            'Transfer the pictures from the command bar control to local variables
            'If you don't know the number associated with your custom toolbar, run the CommandBarNames() subroutine below
            
            Set picPicture = Application.CommandBars(126).Controls(i).Picture
            Set picMask = Application.CommandBars(126).Controls(i).Mask

            'Save the pictures to disk
            stdole.SavePicture picPicture, "C:\Excel_2003_Toolbar_Images\" & i & "-Pic.bmp"

            'Save the mask picture for the toolbar button
            stdole.SavePicture picMask, "C:\Excel_2003_Toolbar_Images\" & i & "-Mask.bmp"

            'Free the memory from the local variables
            Set picPicture = Nothing
            Set picMask = Nothing

        Next i

End Sub


Sub CommandBarNames()
'Run this to identify the number associated with your custom toolbar(s)
'After running it, manually review the CommandBarNames spreadsheet to identify the numbers

On Error GoTo Outta

For i = 1 To 200

Sheets("CommandBarNames").Cells(i, 1) = Application.CommandBars(i).Name
Sheets("CommandBarNames").Cells(i, 2) = i

Next i

Outta:

End Sub

By: Jason B

Jason B — Wed, 07 Sep 2011 22:42:28 +0000

I needed to do something more simple: extract all the images from a custom toolbar I created in Excel 2003. I adapted a few lines of code from the above example and am posting it here in case someone else runs across this post with similar needs to mine.

Private Sub ExtractImagesFromCustomToolbar()

    Dim i As Integer
    Dim picPicture As stdole.IPictureDisp
    Dim picMask As stdole.IPictureDisp

    On Error Resume Next

    If Len(Dir("C:\Excel_2003_Toolbar_Images", vbDirectory)) < 4 Then
        'Create the folder to hold the exported pictures
        MkDir "C:\Excel_2003_Toolbar_Images"
    End If

        For i = 1 To 32  'Must set number of controls manually (count the items in your custom toolbar)

            'Transfer the pictures from the command bar control to local variables
            'If you don't know the number associated with your custom toolbar, run the CommandBarNames() subroutine below
            
            Set picPicture = Application.CommandBars(126).Controls(i).Picture
            Set picMask = Application.CommandBars(126).Controls(i).Mask

            'Save the pictures to disk
            stdole.SavePicture picPicture, "C:\ExcelBuiltInImages2003\" & i & "-Pic.bmp"

            'Save the mask picture for the toolbar button
            stdole.SavePicture picMask, "C:\ExcelBuiltInImages2003\" & i & "-Mask.bmp"

            'Free the memory from the local variables
            Set picPicture = Nothing
            Set picMask = Nothing

        Next i

End Sub


Sub CommandBarNames()
'Run this to identify the number associated with your custom toolbar(s)
'After running it, manually review the CommandBarNames spreadsheet to identify the numbers

On Error GoTo Outta

For i = 1 To 200

Sheets("CommandBarNames").Cells(i, 1) = Application.CommandBars(i).Name
Sheets("CommandBarNames").Cells(i, 2) = i

Next i

Outta:

End Sub