Shocker.Pro,
Доброе утро!
Да, извините, я скопировала строку из старого кода, в котором была запятая. Я это заметила, когда уже отправила, не стала снова отправлять. Но и в этом варианте график не строится. У меня есть файл Microsoft Excel, в котором написан макрос для построения круговой диаграммы.На листе 1 исходные данные в ячейках A1:A10. На листе 2 хочу построить круговую диаграмму. При выполнении макроса я сначала в окне InputBox указываю на лист1, в котором находятся исходные данные, затем задаю диапазон, используя R1C1 формат(этот диапазон я набираю как R1C1:R10C1) также в окне InputBox, затем на следующем шаге указываю лист2, на котором необходимо разместить диаграмму. Всё это работает, но диаграмма не строится, а появляется на листе 2 пустая рамка, верно ли я задаю диапазон? Не сочтите за дерзость, может быть Вы сами попробуете построить график и выяснить, в чём моя ошибка? Спасибо за совет по поводу явного объявления переменных, но и это не помогло. Вот вчерашняя строка:
ActiveChart.ChartWizard Source:=Range(SourceRng), _
А вот код, который я не писала сама, а взяла не "из чужой тетрадки", а из учебника, по которому разбираю примеры.
Надеюсь на этот раз новые ошибки не выплывут. Если появятся, то исправьте их, пожалуйста. Спасибо за Ваше участие и терпение. Надеюсь на Вашу помощь. С уважением
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
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
Текст ошибки в части кода 'использование метода ChartWizard для создания диаграммы:
Run-time error '1004':
Method 'Range' of object'_Global'failed
P.S. Я знаю, что чем короче вопрос, больше шансов на успех, поэтому извините за столь длинное сообщение.
