With Worksheets(1).ChartObjects(1).Chart
If .ChartType = xlBubble Then
.ChartGroups(1).BubbleScale = 96
End If
End With
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
With Worksheets(1).ChartObjects(1).Chart
If .ChartType = xlBubble Then
.ChartGroups(1).BubbleScale = 96
End If
End With
Nenhum comentário:
Postar um comentário