Como salvar o ícone ImageMSO do Microsoft Office 2007?

Eu encontrei um monte de bons ícones do Microsoft Office 2007. Você tem alguma idéia para extrair e salvar todos os ícones como arquivos PNG usando o VBA?

Imagem parcial do console http://rabu4g.bay.livefilestore.com/y1p2SF1q63YjDjPNmK4nYMW2644r9AO2aAsE__vBYznTeXD0b4SJUU0O07fxPD0r7aO_83gCJ-8OfcOQsFKG0fQMRnTEneBU1TI/Capture.PNG

O código a seguir é o código que é usado para obter imagens do ImageMSO.

Application.CommandBars.GetImageMso([name], [width], [height])

Eu posso exibir tudo como controle PictureBox e salvar o arquivo do Excel como página da web. No entanto, todos os ícones são de qualidade muito baixa.

Além disso, eu tento criar o projeto Add-in C # Excel para exportar como objeto Bitmap usando o código a seguir. Mas descobri que não é possível exportar como PNG semitransparente.

stdole.IPictureDisp p = Application.CommandBars.GetImageMso(fileName, size, size);
Bitmap b = Bitmap.FromHbitmap((IntPtr)p.Handle, (IntPtr)p.hPal);

PS. Eu quero salvar todos os ícones como formato PNG porque eu preciso usar o recurso semi-transparente dele. Permite-me usar todos os ícones na maioria das cores de fundo mais do que o fundo branco.

questionAnswers(4)

yourAnswerToTheQuestion