hola, Luis Miguel !
... cuando tengo... p.ej. 50 bolas, poner el titulo 1 a 1 me parece casi inabordable
... forma de hacerlo automaticamente para todas?...
suponiendo que se trara de un grafico incrustado en la hoja de calculo [el #1]
y que las celdas para los rotulos de cada punto de datos [se la serie1] inician en la celda 'A2'
podrias 'basarte' en el numero de 'puntos' [o burbujas] en la serie para 'casarlos' con cada celda [p.e.]
== copia las siguientes lineas en un modulo de codigo 'normal' ===
Sub AgregaRotulosABurbujas()
Dim Punto As Byte
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
.ApplyDataLabels Type:=xlDataLabelsShowLabel
With .DataLabels
.Border.Weight = xlHairline
.Interior.ColorIndex = 19
.Interior.PatternColorIndex = 1
.Interior.Pattern = xlSolid
.Font.ColorIndex = 3
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Position = xlLabelPositionBelow
.Orientation = xlHorizontal
End With
For Punto = 1 To .Points.Count
.Points(Punto).DataLabel.Text = "=" & _
Range("a" & Punto + 1).Address(, , xlR1C1, True)
Next
End With
End Sub
toma en cuenta que en ->Range("a" & Punto + 1)<- empieza en 1+2 = 2 [o sea el rango 'A2']
si cualquier duda... comentas?
saludos,
hector.