Quote Originally Posted by Izandol View Post
If chrt is your chart object variable then you may use:
      With chrt
            .ChartType = xl3DPie
            .SetSourceData Source:=Sheets("GraphData").Range("A2:B" & lastrow)
            .SetElement (msoElementLegendRight)
            .SetElement (msoElementDataLabelShow)
            .SetElement (msoElementDataLabelBestFit)
            .SetElement (msoElementChartTitleNone)
            .ChartTitle.Text = "Percentage of inv"
            .ChartArea.Format.ThreeD.RotationY = 50
            .ChartStyle = 26
             With .SeriesCollection(1).DataLabels
                .ShowPercentage = True
                .ShowSeriesName = False
                .ShowCategoryName = False
                .ShowValue = False
            End With
        End With
Refined code, and now none of the chart is selected - thank you!