Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
Excel VBA Shapes Planilha 43 gráfico produto comentário
com esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), EVENTO CHANGE AO DIGITAR
vamos aprender copiar um grafico para dentro do comentário (*), isto é, vamos criar um gráfico modelo por por produto como esta na colun(P). Quando entrar no campo B2: E20 e DIGITAR o programa criará um COMENTARIO na Coluna(A) e para esse comentario vai copiar o gráfico ao lado , paracomentário da célula que contém o nome do produto (coluna A). observe que criaremos um gif temporário do gráfico por produto para ser inserido no comentário em referencia na folha de planilha. Usaremos o Eventos Change (ao escrever no i ntervalo de células (B2:E20)), caso queira aumente esses valores no procedimento.
‘//===============’NA FOLHA DE CÓDIGO DA FOLHA DE PLANILHA:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([b2:E20], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Formula = _
“=SERIES(” & ActiveSheet.Name & “!R” & Target.Row & _
“C1,” & ActiveSheet.Name & “!R1C2:R1C4,” & ActiveSheet.Name & “!R” & Target.Row & “C2:R” & Target.Row & “C4,1)”
ActiveSheet.ChartObjects(1).Chart.Export Filename:= _
“sbxgrafico.gif”, FilterName:=”GIF”
With ActiveSheet.Cells(Target.Row, 1)
On Error Resume Next
.AddComment
On Error GoTo 0
.Comment.Shape.Height = 110
.Comment.Shape.Width = 140
.Comment.Shape.Fill.UserPicture “sbxgrafico.gif”
End With
Target.Select
Application.EnableEvents = True
End If
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: |
 Excel VBA Shapes Planilha 43 gráfico produto comentário |
| <<Verifique no Email, a Caixa de Itens Excluídos, Também >> |
Excel VBA Shapes Planilha 43 gráfico produto comentário
