Olá.
Gostaria de saber se alguém tem um código VBA macro para inserir uma imagem em uma célula específica clicando em um botão específico.
Ainda nesse código, que possa permitir a edição da imagem (tamanho e alinhamento na célula).

Obrigado!

Francisco, se pesquisar no Forum encontrará várias opções, dentre elas o tópico abaixo :
Alterar Imagem em uma guia (planilha) [Resolvido]
viewtopic.php?f=10&t=24950

Tambem na net tem uma outra opção para um caso parecido :
Macro para inserir imagem
https://forum.baboo.com.br/index.php?/t ... ir-imagem/

Veja a rotina enviada pelo "alexandre_eng" - Sub Insere_Especifico() - que faz exatamente o que quer, é só alterar o endereço da celula:

Sub Insere_Especifico()
	Dim Pict
	Dim Imagem As Object
	Dim ImgFileFormat As String
	Dim Celula As String

	Celula = "A25"

	ImgFileFormat = "Image Files JPG (*.jpg),*.jpg, Image Files GIF (*.gif),*.gif, Image Files BMP (*.bmp),*.bmp"

	Pict = Application.GetOpenFilename(ImgFileFormat)
	If Pict = False Then End

	Set Imagem = ActiveSheet.Pictures.Insert(Pict)

	Imagem.Top = Range(Celula).Top
	Imagem.Left = Range(Celula).Left
	Imagem.ShapeRange.LockAspectRatio = msoFalse

	Imagem.Height = Range(Celula).Height * 12 '12 = Quantidade de linhas...
	Imagem.Width = Range(Celula).Width * 4 '4 = Quantidade de colunas...
End Sub

[]s