Boa noite!!

Tem um exemplo que deve te interessar...

Sub Button1_Click()
Dim filters As String
Dim filename As Variant

    ' Define the file selection filters.
    filters = "Image Files,*.bmp;*.tif;*.jpg;*.png,PNG (*.png),*.png,TIFF (*.tif),*.tif,JPG (*.jpg),*.jpg,All Files (*.*),*.*"

    ' Get the file name.
    filename = Application.GetOpenFilename( _
        filters, 0, "Select Image", "Take It", False)
    If filename = False Then Exit Sub

    ' Insert the picture.
    InsertPicture CStr(filename), Application.Selection
End Sub

Boa Noite Alexandre, nao basta so colar o codigo dentro do commandbutton certo???

Boa noite!!

Precisa deixa mais detalho, isso é um exemplo qualquer.

Qual é o formato, será png, PNG ...? isso você vai certificar de que é fidedigno

Onde está essa imagem, em um diretório no seu PC, Já está no excel, vai manda para o Form ?

Mande tudo bem detalhado

Vamos la,

o formato que gostaria de carregar e .PNG
a imagem esta salva no desktop com o nome de SearchIcon
e gostaria de colocar sobre o commandbutton1

Obrigado Alexandre.

Até aonde eu sei, por padrão, o formato "PNG" não é aceito, temos de utilizar do recurso de "APIs" para converter o formato e depois adicionar no formulário ou em outro controle.

Eu tinha um modelo, vou ver se encontro e já retorno, se passar o caminho correto da figura e nome, já ajusto na rotina, exemplo :

Me passe os valores abaixo :
Caminho = "C:Documents and SettingsMauroFiguras"
Nome figura = "SearchIcon.png"

[]s

Boa noite mestre Mauro

C:UsersFabioDesktop
SearchIcon.png

Obrigado

Fabio, se o caminho e o nome da figura não existirem a imagem não será mostrada.

Não encontrei o arquivo, mas achei a fonte :
http://www.vbaexpress.com/forum/showthread.php?t=30566

Figura formato "PNG" em UserForm

[]s

Mauro,

Acho que nao me expliquei direito.

Exemplo, tenho la entre outros o commandbutton1, que neste formulario usarei para abrir um formulario de pesquisa, no lugar de escrever Pesquisa na Caption, gostaria de colocar uma imagem, so q nao aceita .png, ate coloquei jpej mas e de baixissima qualidade e cancela a transparencia.

Fabio, eu entendi, você quer manter a figura incorporada, mas é como eu expliquei acima, este formato não é suportado, a unica forma é convertendo com a API, mas você terá sempre que manter o arquivo de imagem (png) no diretório especificado, diferente de você associar um jpg ou bmp que fica incorporado.

Podemos até tentar fazer uma outra adaptação mantendo a figura em uma aba oculta e puxar para o form, se serevir assim que possivel vejo como adaptar.

[]s

Bom dia!!!

Sei que posto como resolvido mas, creio também poder usar o Microsoft Paint.

O Paint é um programa muito utilizado para a criação de Pixel art, que é a "arte de criar uma imagem pixel-a-pixel" (raster), já que ele possui boas e práticas ferramentas para edição em pequena escala.

Abre: ICO, JPG, JFIF, TIFF, BMP, GIF, PNG, DIB, JPEG, JPE;

Att...

Fabio, eu entendi, você quer manter a figura incorporada, mas é como eu expliquei acima, este formato não é suportado, a unica forma é convertendo com a API, mas você terá sempre que manter o arquivo de imagem (png) no diretório especificado, diferente de você associar um jpg ou bmp que fica incorporado.

Podemos até tentar fazer uma outra adaptação mantendo a figura em uma aba oculta e puxar para o form, se serevir assim que possivel vejo como adaptar.

[]s

Bom dia,

O tópico é exatamente o que eu preciso.

Estou fazendo um Form com vários botões.
Porém gostaria de adicionar esses botões com a mesma qualidade do original.

Pois quando incorporo a imagem no botão ou até como imagem no Form ele perde a qualidade.

Tanto em JPG ou BMP.

Dúvida: Gostaria de tentar incorporar em PNG

ou

Como Mauro falou, coloquei a imagem em uma aba e está com qualidade boa, mesmo em JPG.
Como faço para jogar no Form agora mantendo a qualidade ?

Bom dia,

A medida que faço umas perguntas eu vou correndo atrás para tentar sempre aprender.

Consegui resolver em partes.
Consegui manter a qualidade do botão em JPG já incorporado no UserForm tanto pelo "Botão de Comando" como "Imagem"

Na tela de edição do UserForm a imagem fica perfeita.

Após dar F5 para ver a imagem:

Botão de Comando sempre se mantem do mesmo jeito.

Imagem - Diminui e mantem qualidade (0 - fmPictureSizeModeClip)
Imagem - Continua mesmo tamanho e perde bastante qualidade (1 - fmPictureSizeModeStretch)