Remove or Hide or Delete Negative Bubbles

[Excel Fox]

Try this

Sub HideBubble()

    Dim obj As Series, intI As Integer
    
    For Each obj In ActiveSheet.ChartObjects(1).Chart.SeriesCollection
        For intI = 1 To obj.Points.Count
            If obj.Values(intI) < 0 And obj.XValues(intI) < 0 Then
                obj.Points(intI).Format.Fill.Visible = msoFalse
            End If
        Next intI
    Next obj
    
End Sub