Planilha Excel VBA Shapes 33 graficos fotos vendedores
Planilha Excel VBA Shapes 33 graficos fotos vendedores
com esses Macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como fazer um gráfico com comentários e fotos, esse gráfico contém a foto(shapes) dos funcionários, para incorporar essa fotos nesse gráfico, fizemos duas macros para atualizar as imagens fotos e outra para atualizar os comentários. Para fazer o teste arraste a foto do NeyMar filho ou do Pelé para fora do gráfico e atualize as imagens, automaticamente atualizará as imagens no gráfico com base no salário do Funcionário. Fiquem com Deus, Bons Estudos®
‘//============’MACRO PARA ATUALIZAR OS COMENTÁRIOS NA COLUNA C
Sub sbx_comentarios()
ActiveSheet.ChartObjects(1).Activate
On Error Resume Next
ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel
On Error GoTo 0
ActiveChart.SeriesCollection(1).DataLabels.Select
numPontos = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To numPontos
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Interior.ColorIndex = 36
Selection.Font.Size = 7
Selection.Text = ActiveSheet.Cells(i + 1, 3)
Next i
sbx_fotos
End Sub
‘//============’MACRO PARA ATUALIZAR AS POSIÇÕES DAS FOTOS DOS FUNCIONARIOS
Sub sbx_fotos()
ActiveSheet.ChartObjects(1).Activate
nomGraphe = ActiveSheet.ChartObjects(1).Name
numPontos = ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.PlotArea.Select
xp = Selection.Left
yp = Selection.Top
lp = Selection.Width ‘ Largura da plotagem da área
lp = lp * 0.95
hp = Selection.Height
ActiveChart.Axes(xlValue).Select
mx = ActiveChart.Axes(xlValue).MaximumScale
xg = ActiveSheet.Shapes(nomGraphe).Left
yg = ActiveSheet.Shapes(nomGraphe).Top
Range(“A1”).Select
For i = 1 To numPontos
x = Cells(i + 1, 1)
ActiveSheet.Shapes(x).Select
Selection.ShapeRange.Left = xg + (lp / numPontos) * i – 20
Selection.ShapeRange.Top = yg + yp + (mx – Cells(i + 1, 2)) * (hp / mx) – 45
Next i
[A1].Select
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Planilha Excel VBA Shapes 33 gráficos fotos vendedores |
| << Download: verifique a caixa de itens excluídos também >> |
Planilha Excel VBA Shapes 33 gráficos fotos vendedores
