Boa Tarde,
Alguém pode me ajudar com uma VBA para inserir imagem dentro de uma Forma Excel?
Tenho uma VBA mais ela insere dentro de uma célula.
Código:
Sub Imagem_Foto_01A()
Dim sPathFigura As String
Dim sNomeFig As String
Dim sArrayRange
Dim sRgAddPic As Range
Dim sValor
Dim I As Integer
Dim arqAAbrir
Dim Msg, Style, Title, Response, MyString
Msg = “Deseja realmente limpar o formulário?” ’ Define a mensagem.
Style = vbYesNo + vbCritical + vbDefaultButton1 ’ Define o botão NÃO como padrão.
Title = “LIMPAR FORMULARIO” ’ Define o título.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ’ O usuário escolheu Sim.
’ Executa alguma ação
'Abre a caixa para selecionar e pegar o Endereço (Caminho) onde estão as figuras
sPathFigura = Application.GetOpenFilename(“Arquivos de imagens (.jpg;.jpeg;.png;.bmp, .jpg;.jpeg;.png;.bmp”)
’ sPathFigura = Application.GetOpenFilename(“Arquivos de imagens (.jpg;.jpeg), .jpg;.jpeg”)
'Definimos o Range Nomeado onde será inserido a Imagem
Set sRgAddPic = ActiveSheet.Range(“Foto_01A”)
Application.ScreenUpdating = False
'Chamamos a função para inserção da figura
AddPicOverCell sPathFigura, sRgAddPic
Else ’ O usuário escolheu Não.
Exit Sub
End If
Call Formatar_Imagens
End Sub
Bookmarks