Como Inserir foto dentro de Shape de forma automática - Programador Excel VBA

[@jeferson-jeffexcel5560]

Blz. ! Vale a pena assistir. Valeu

[@ProgramadorExcelVBA]

Ola Jeferson, obg pelo seu comentário, feliz em lê-lo. Att, Gledson Programador Excel VBA

[@douglassalazar9092]

Muito bom! Obrigado por compartilhar

[@ProgramadorExcelVBA]

Ola Douglas obg, se inscreva no canal para ñ perder nenhum conteúdo novo Att, Gledson Programador Excel VBA

[@marcosdesouzafreires5137]

Excelente...

[@ProgramadorExcelVBA]

Vlw Marcos. Att, Gledson Programador Excel VBA

[@tecalexrj2]

Legal desconhecia esta dica! Obrigado!!!!

[@ProgramadorExcelVBA]

Obg por seu comentário Alexandre. O Excel é surpreendente!!! Att, Gledson Programador Excel VBA

[@MCAES01]

@@ProgramadorExcelVBA Gledson, eu queria inserir a foto dentro da shape mas digitando o nome da foto em uma única célula (dentro de a3 por ex...) Não consegui fazer essa alteração.

[@adilsonoliveira9976]

Muito bom, eu não tinha ideia de como fazer isso. Valeu Professor!!!! Aproveitar para tirar uma dúvida: Como fazer para que o ListBox carregue mais de 10 colunas e também exibir o conteúdo em ordem alfabética? Abraços e obrigado.

[@ProgramadorExcelVBA]

Ola Adílson obgdao por mais um comentário seu nos videos aq do canal. Sobre o listbox com mais de 10 colunas, esse conteúdo tem aq no KZbin em outros canais, nao gravo video a respeito pq é meio q uma gambiarra fazer + de 10 colunas no listbox, migre para o listview. Sobre ordenar o listbox também tem aq no KZbin videos de outros canais a respeito. Tente ver se esses videos conseguem ajudar vc. Me desculpe por qualquer coisa aê... Att, Gledson Programador Excel VBA

[@reginaldocunha4895]

Bom dia Gledson assisti suas vídeo aulas reassisti ,fiz os camando certo da forma que vc explica + não vai ,o que pode estar dando errado estou tentando fazer carteirinhas

[@nxextxo]

😻

[@ProgramadorExcelVBA]

Vlw Fernando Att, Gledson Programador Excel VBA

MUITO BOM CARA, ME SALVOU. VOU DEIXAR UM CODIGO ADAPTADO PARA QUE A SELEÇÃO DE UMA FOTO POSSA SER FEITA PELO GET OPEN Sub IMPORTARFOTO() Application.ScreenUpdating = False Plan2.Activate Plan2.Unprotect CAMINHOARQUIVO = Application.GetOpenFilename(FileFilter:="Image Files(*.jpg), *.jpg") ActiveSheet.Shapes.Range(Array("QRCODE")).Select With Selection.ShapeRange.Fill .Visible = msoTrue .PresetTextured msoTexturePapyrus .TextureTile = msoTrue .TextureOffsetX = 0 .TextureOffsetY = 0 .TextureHorizontalScale = 1 .TextureVerticalScale = 1 .TextureAlignment = msoTextureTopLeft End With With Selection.ShapeRange.Fill .Visible = msoTrue .UserPicture CAMINHOARQUIVO .TextureTile = msoFalse End With Application.CommandBars("Format Object").Visible = False Application.ScreenUpdating = True Plan2.Protect End Sub

[@ProgramadorExcelVBA]

Ola Naim Rodrigues obg, fico feliz, caso ñ seja inscrito, inscreva-se para não perder nenhuma aula grauita, videos novos todos os dias. obg pelo codigo que você deixou nos comentários. Att, Gledson Programador Excel VBA

[@MCAES01]

@@ProgramadorExcelVBA irmão, como eu insiro no seu código do vídeo, por exemplo um log de erro? Por exemplo: das 6 matrículas de funcionários faltaram 2 carteiras que não foram feitas... Como gerar um log em txt das carteiras que não foram feitas e que não precise parar a macro?

[@elsogoncalves5345]

No userform e so adicionar o codigo no cadastro

[@rigonato2010]

A minha imagem desloca quando insiro a segunda imagem; teria algum comando que fixa a imagem na Celula? Mesmo no loop? Meu codigo é o abaixo: Sub InserirVariasImagensGz() Dim ImgPastL As String: ImgPastL = "C:\Fotos" 'AQUI *Altere o diretorio da sua pasta de imagens Dim ArqSel As String: ArqSel = Dir(ImgPastL & "\") Dim ImgX As Long, ImgY As Long, ImgSpac As Long, imgW As Long, imgH As Long Dim i As Long: i = 17 Dim ct As String: ct = 0 Celula = "G" & i ImgX = Range(Celula).Left ImgY = Range(Celula).Top ImgSpac = Range(Celula).Height * 18 imgW = Range(Celula).Width * 4 imgH = Range(Celula).Height * 14 Do While ArqSel "" Celula = "G" & i ActiveSheet.Shapes.AddPicture ImgPastL & "\" & ArqSel, False, True, ImgX, ImgY, imgW, imgH ImgY = ImgY + 290 ArqSel = Dir() ct = ct + 1 Loop MsgBox ct & " Imagens foram inseridas !", 0, "Sucesso" End Sub

[@nxextxo]

Muito bom .....

[@ProgramadorExcelVBA]

Obg mais uma vez Fernando. Att, Gledson Programador Excel VBA