Disposizioni etichette in un Grafico

Sub Complessa()
Dim r, c, x, y, d, p, n, T, L, H, W, LL, k, ind, rng

Sheets("Grafico2").Select
ind = ActiveWorkbook.Path & "\Immagini\"
Range("AG2:AK21") = ""
Range("AN2:AO21") = ""
rng = Range("AB2:Ak21")
n = 2
ActiveSheet.ChartObjects("Grafico 2").Activate
For x = 1 To 20
  d = rng(x, 3)
  p = rng(x, 4)
  If p <> 0 Then
    ActiveChart.SeriesCollecti0n(d).Select
    ActiveChart.SeriesCollecti0n(d).Points(p).Select
    
    With Selection
        T = Int(.Top)
        .MarkerStyle = -4142
        .MarkerSize = 5
    End With
    'Selection.MarkerStyle = -4147
    'If rng(x, 5) <> "" Then
    ' With Selection.Format.Fill
        '.Visible = msoTrue
        '.UserPicture ind & rng(x, 5)
    ' End With
    'End If
    ActiveChart.SeriesCollecti0n(d).ApplyDataLabels
    ActiveChart.SeriesCollecti0n(d).DataLabels.Select
    ActiveChart.SeriesCollecti0n(d).HasLeaderLines = False
    For y = p - 1 To 1 Step -1
      ActiveChart.SeriesCollecti0n(d).Points(y).DataLabel.Delete
    Next y
    ActiveChart.SeriesCollecti0n(d).Points(p).DataLabel.Select
    With Selection
      .ShowSeriesName = -1
      L = Int(.Left)
'      T = Int(.Top)
      H = Int(.Height)
      W = Int(.Width)
      Cells(x + 1, 33) = T
      Cells(x + 1, 34) = L
      Cells(x + 1, 35) = H
      Cells(x + 1, 36) = W
      If x = 1 Then Cells(n, 40) = T: Cells(n, 41) = L + W + 3: n = n + 1: GoTo 1
      k = 0
      For y = 2 To n
        If Cells(y, 40) = T Then LL = Cells(y, 41): k = 1: Exit For
      Next y
      If k = 1 Then
          .Left = LL
'          .Top = T
          LL = LL + W + 3
          Cells(y, 41) = LL
      End If
      If k = 0 Then
        LL = L
        .Left = LL
'        .Top = T
        LL = LL + W + 3
        Cells(n, 40) = T
        Cells(n, 41) = LL
        n = n + 1
      End If
      
    Stop
    'inserisco forma e logo
    ActiveChart.Shapes.AddShape(msoShapeRoundedRectangle, L, T, 20, 20).Select
    Selection.ShapeRange.Line.Visible = msoFalse
    With Selection.ShapeRange.Fill
      .Visible = msoTrue
      .UserPicture ind & rng(x, 5)
      .TextureTile = msoFalse
    End With
    'Stop
    
   End With
  End If
1 Next x
Cells(1, 1).Select
MsgBox "Operazione terminata"
End Sub

....
    'Selection.MarkerStyle = -4147
    'If rng(x, 5) <> "" Then
    ' With Selection.Format.Fill
        '.Visible = msoTrue
        '.UserPicture ind & rng(x, 5)
    ' End With
    'End If
....

      If k = 0 Then
        LL = L
        .Left = LL
        .Top = T
        LL = LL + W + 3
        Cells(n, 40) = T
        Cells(n, 41) = LL
        n = n + 1
      End If

Sub Elimina_Loghi()
Dim i As Long
ActiveSheet.ChartObjects(1).Activate
For i = ActiveChart.Shapes.Count To 1 Step -1
  If Left(ActiveChart.Shapes(i).Name, 5) = "Round" Then
    ActiveChart.Shapes(i).Delete
  End If
Next
End Sub

Sub Complex()
Dim a, r, c, x, y, d, p, n, T, L, H, W, LL, k, ind, rng, pd

Sheets("Grafico2").Select
ind = ActiveWorkbook.Path & "\Immagini\"
rng = Range("AB2:AF21")
ActiveSheet.ChartObjects("Grafico 2").Activate
'cancella etichette pecedenti
On Error Resume Next
For a = 1 To ActiveChart.SeriesCollection.Count
  ActiveChart.SeriesCollecti0n(a).DataLabels.Delete
Next a
On Error GoTo 0
Call Elimina_Loghi
'
For x = 1 To 20
  d = rng(x, 3) 'numero serie
  p = rng(x, 4) 'punto della serie
  If p <> 0 Then
    With ActiveChart.SeriesCollecti0n(d)
      .Select
      .ApplyDataLabels
      .DataLabels.Select
      For y = p - 1 To 1 Step -1
        .Points(y).DataLabel.Delete
      Next y
      With .Points(p)
        .Select
        .MarkerStyle = xlMarkerStyleCircle
        T = Int(.Top)
        .DataLabel.Select
        With Selection
          .ShowSeriesName = -1  'squadra
          .ShowValue = False    'elimino il valore
          L = Int(.Left) + 20
          W = Int(.Width)
          pd = PosDestra(L, T, W) 'UDF per posizione
          .Left = pd 'sposto l'etichetta
        End With
      End With
    End With
    'inserisco forma e logo
    ActiveChart.Shapes.AddShape(msoShapeRoundedRectangle, pd - 20, T - 10, 20, 20).Select
    Selection.ShapeRange.Line.Visible = msoFalse
    With Selection.ShapeRange.Fill
      .Visible = msoTrue
      .UserPicture ind & rng(x, 5)
      .TextureTile = msoFalse
    End With
  End If
Next
Cells(1, 1).Select
MsgBox "Operazione terminata"
End Sub

Function PosDestra(ByVal L As Integer, ByVal T As Integer, ByVal W As Integer) As Integer
Dim i As Long, n As Integer, aa
ActiveSheet.ChartObjects(1).Activate
For i = ActiveChart.Shapes.Count To 1 Step -1
  If Left(ActiveChart.Shapes(i).Name, 5) = "Round" Then
    If ActiveChart.Shapes(i).Top = T - 10 Then
      n = n + 1
    End If
  End If
Next
If n = 0 Then
  PosDestra = 158
Else
  PosDestra = L + (n * 70)
End If
End Function

Sub Elimina_Loghi()
Dim i As Long
ActiveSheet.ChartObjects(1).Activate
For i = ActiveChart.Shapes.Count To 1 Step -1
  If Left(ActiveChart.Shapes(i).Name, 5) = "Round" Then
    ActiveChart.Shapes(i).Delete
  End If
Next
End Sub

Sub Complessa()
Dim r, c, x, y, d, p, n, T, L, H, W, LL, k, ind, rng

Sheets("Grafico2").Select
ind = ActiveWorkbook.Path & "\Immagini\"
Range("AG2:AK21") = ""
Range("AN2:AO21") = ""
rng = Range("AB2:Ak21")
n = 2
ActiveSheet.ChartObjects("Grafico 2").Activate
For x = 1 To 20
  d = rng(x, 3)
  p = rng(x, 4)
  If p <> 0 Then
    ActiveChart.FullSeriesCollecti0n(d).Select
    ActiveChart.FullSeriesCollecti0n(d).Points(p).Select
    With Selection
        T = Int(.Top)
        L = Int(.Left)
        .MarkerStyle = -4142
    End With
    ActiveChart.FullSeriesCollecti0n(d).ApplyDataLabels
    ActiveChart.FullSeriesCollecti0n(d).DataLabels.Select
    ActiveChart.FullSeriesCollecti0n(d).HasLeaderLines = False
    For y = p - 1 To 1 Step -1
      ActiveChart.FullSeriesCollecti0n(d).Points(y).DataLabel.Delete
    Next y
    ActiveChart.FullSeriesCollecti0n(d).Points(p).DataLabel.Select
    With Selection
      .ShowSeriesName = -1
      H = Int(.Height)
      W = Int(.Width)
      Cells(x + 1, 33) = T
      Cells(x + 1, 34) = L
      Cells(x + 1, 35) = H
      Cells(x + 1, 36) = W
      If x = 1 Then Cells(n, 40) = T: Cells(n, 41) = L: LL = Cells(n, 41): GoTo 1
      k = 0
      For y = 2 To n
        If Cells(y, 40) = T Then LL = Cells(y, 41): k = 1: Exit For
      Next y
1      If k = 1 Then
          .Left = LL
          Call Logo(LL, T, W, rng(x, 5)) 'richiama inserimento logo
          LL = LL + 20 'aumenta il Left per la larghezza del logo
          Cells(y, 41) = LL
      End If
      If k = 0 Then
        LL = L
        .Left = LL
        Call Logo(LL, T, W, rng(x, 5)) 'richiama inserimento logo
        LL = LL + 20 'aumenta il Left per la larghezza del logo
        Cells(n, 40) = T
        Cells(n, 41) = LL
        n = n + 1
      End If
   End With
  End If
 Next x
Cells(1, 1).Select
MsgBox "Operazione terminata"
End Sub

Sub Logo(L, T, W, Img)
Dim ind

L = L + W + 3
ind = ActiveWorkbook.Path & "\Immagini\"
ActiveChart.Shapes.AddShape(msoShapeRoundedRectangle, L, T - 8, 20, 20).Select
Selection.ShapeRange.Line.Visible = msoFalse
With Selection.ShapeRange.Fill
  .Visible = msoTrue
  .UserPicture ind & Img
  .TextureTile = msoFalse
End With
End Sub

Sub Logo(L, T, W, Img)
Dim ind

L = L + W + 3
ind = ActiveWorkbook.Path & "\Immagini\"
ActiveChart.Shapes.AddShape(msoShapeRoundedRectangle, L, T - 8, 20, 20).Select

ShpL = 'come prendo il nome dello shape appena creato

Selection.ShapeRange.Line.Visible = msoFalse
With Selection.ShapeRange.Fill
  .Visible = msoTrue
  .UserPicture ind & Img
  .TextureTile = msoFalse
End With
End Sub