1 :Sub MakeSaleSRpt_Chart()                
 2 :	'Запрашивает имя листа, содержащего исходные данные,
 3 :	'затем запрашивает диапазон ячеек с данными для диаграммы.
 4 :	'Далее запрашивается имя листа для помещения в него круговой
 5 :	'диаграммы. Затем процедура создает диаграмму и использует
 6 :	'метод ChartWizard для получения круговой диаграммы
 7 :
 8 :	Const sTitle = "суммарный смыв"
 9 :
 10 :    Dim SrcShtName As String
 11 :    Dim SourceRng As String
 12 :	Dim DestShtName As String
           13 :
 14 :	'получить имя исходного листа
 15 :	SrcShtName = InputBox(prompt:= _
 16 :	"Введите имя листа,  " & _
 17 :	"содержащего данные для диаграммы",  _
 18 :	Title:=sTitle)
 19 :    'выбор листа и создание диаграммы
 20 :   Sheets (DestShtName) .Select	
 21 : ActiveSheet.ChartObjects.Add( 96 ,   37 . 5 ,  234 ,  111 ).Select 
 22 :
 23 : 'использование метода ChartWizard для создания диаграммы 
 24 :    With Sheets(SrcShtName)
 25 :    ActiveChart, ChartWizard Source:=.Range(SourceRng),  _
 26 :                                     Gallery:=xlPie,
 27 :	                                  Format:= 7 ,
 28  :		                         PlotBy: =xIColumns,  _
 29 :	                                 CategoryLabels:= 1 ,  _
 30 :	                                 SeriesLabels:= 1 ,  _
 31 :	                                 HasLegend:= 1 , _  
 32 :	                                 Title:="Суммарный смыв"
 33 :  End With        
 34 :  End Sub

ActiveChart, ChartWizard Source:=.Range("A1:A10"),  _

ActiveChart.ChartWizard Source:=Range(SourceRng), _

Option Explicit

Sub MakeSaleSRpt_Chart()                
	'Запрашивает имя листа, содержащего исходные данные,
	'затем запрашивает диапазон ячеек с данными для диаграммы.
	'Далее запрашивается имя листа для помещения в него круговой
	'диаграммы. Затем процедура создает диаграмму и использует
	'метод ChartWizard для получения круговой диаграммы

	Const sTitle = "суммарный смыв"
          
    Dim SrcShtName As String
    Dim SourceRng As String
    Dim DestShtName As String          
	'получить имя исходного листа
	SrcShtName = InputBox(prompt:= _
 "Введите имя листа,  " & _
	"содержащего данные для диаграммы",  _
	Title:=sTitle)
	'проверить: введено ли имя
	If Len (Trim (SrcShtName)) =  0  Then
	MsgBox "Имя с данными не введено - конец работы"
Exit Sub
 End If
'выбор листа, на который указал пользователь
	Sheets (SrcShtName).Select

	
	'получить диапазон (с данными)
SourceRng = InputBox(prompt:=  _
	"Введите диапазон с данными для диаграммы, " &  _
	"используя R1C1 формат:",  _
	Title:=sTitle)
      'проверка; введен ли диапазон
       If Len (Trim(SourceRng))  = 0  Then       
	MsgBox "Диапазон данных не введен - конец работы" 
    Exit Sub 
    End If 

 'получить имя листа для помещения в него диаграммы
          DestShtName = InputBox (prompt:="Введите имя листа " & _
          		"для диаграммы:",  _
	Title:=sTitle) 
    'проверка: не выбрана ли Отмена
            If Len (Trim(DestShtName)) =  0  Then
           MsgBox "Лист для диаграммы не введен " & _
          	"- конец- работы"
      Exit Sub 
    End If
	
    'выбор листа и создание диаграммы
   Sheets (DestShtName).Select	
 ActiveSheet.ChartObjects.Add( 96 ,   37 . 5 ,  234 ,  111 ).Select 

 'использование метода ChartWizard для создания диаграммы 
    With Sheets(SrcShtName)
    ActiveChart.ChartWizard Source:=Range(SourceRng),  _
                                     Gallery:=xlPie, _
	                              Format:= 7 , _
		                      PlotBy: =xIColumns,  _
	                              CategoryLabels:= 1 ,  _
	                              SeriesLabels:= 1 ,  _
	                              HasLegend:= 1 , _  
	                              Title:="Суммарный смыв"
    End With        
    End Sub

ActiveChart.ChartWizard Source:=.Range(SourceRng),  _

xlColumns 

xIColumns