guilherme.utuari

Bom dia pessoal, estou com um problema, gostaria que me ajudassem, Tenho um gráfico de dispersão que busca valores em uma tabela, porém para cada linha nesta tabela adicionei uma serie de dados ao gráfico e isto tem me gerado um problema, pois muitas vezes preciso adicionar linhas a mais na tabela e preciso adicionar manualmente ao gráfico, gostaria de saber existe um código VBA que possa buscar essa última linha criada na tabela e adiciona-la automaticámente ao gráfico de dispersão? Muito Obrigado!!

@Basole Obrigado! deu certo!

Fiz as alterações porém não adiantou, não sei também o que estou fazendo de errado, outro problema que notei também, é que após adicionar a imagem a barra de rolagem volta até a primeira linha, o que as vezes dificulta se estou colando seguidas imagens em linhas muito distantes da primeira, estou anexando a planilha, no caso as abas que insiro as imagens são as "failures" e "correct", por favor, se puder ver o que fiz de errado, agradeço! Report 2015 - ESN.xlsx

@Basole funciona perfeitamente, porém só um detalhe que estou em dúvida, toda vez em que acesso a planilha e tento adicionar uma imagem pela primeira vez, está primeira imagem é adicionada com formato real e o botão de adicionar a foto se deforma também, o que posso estar fazendo errado?

@Basole é quase isso, mas eu gostaria que o vba identificasse qual célula eu estou selecionando e a imagem fosse inserida nesta célula, pois a célula que insiro a imagem é variável.

Boa tarde, tenho um código VBA que inseri uma imagem em uma determinada área pré-estabelecida, aí que está minha dúvida, gostaria de alterar este código para que eu pudesse inserir a imagem na célula e que as dimensões já se enquadrassem nesta célula. Se alguém puder me ajudar, agradeço. Segue o código VBA abaixo e a planilha em anexo. Private Sub CommandButton1_Click() Dim profile As String On Error GoTo 0 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png" .ButtonName = "Select" .AllowMultiSelect = False .Title = "Choose Photo" .InitialView = msoFileDialogViewDetails .Show End With ActiveSheet.Range("E3").Select With ActiveSheet.Pictures.Insert(fd.SelectedItems(1)) .Left = ActiveSheet.Range("photograph").Left + 2 .Top = ActiveSheet.Range("photograph").Top + 2 .Placement = 1 .PrintObject = True profile = .Name End With ActiveSheet.Pictures(profile).Select With Selection.ShapeRange .LockAspectRatio = msoFalse .Width = 123 .Height = 134 End With End Sub LEM_Browse_Photo.xlsx