Как упростить код VBA&

@Марина1290 · Регистрация: 16.02.2019

Студворк — интернет-сервис помощи студентам

Как сократить код? Как записать повторяющийся 3 раза одинаковый кусок кода????

ActiveSheet.ChartObjects.Add(50, 50, 288, 216).Select
ActiveChart.ChartWizard Source:=Range(Worksheets(2).Cells(1, 1), Worksheets(2).Cells(A, 2)), Gallery:=xlLineMarkers, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=False, Title:="????? ??????? ??? ????? v(x)" '??????? ??????? ? ????? ??????????
ActiveChart.Axes(xlCategory).HasTitle = True
ActiveChart.Axes(xlCategory).AxisTitle.C haracters.Text = "x, ?"
ActiveChart.Axes(xlValue).HasTitle = True
ActiveChart.Axes(xlValue).AxisTitle.Char acters.Text = "v, ?"
ActiveChart.Axes(xlValue).Select
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth
With Selection.Format.Line
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadWidth = msoArrowheadWide
End With
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlCategory).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth
With Selection.Format.Line
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadWidth = msoArrowheadWide
End With
ActiveChart.Axes(xlCategory).HasMajorGri dlines = True
ActiveChart.Export Filename:="chart1.gif", FilterName:="gif"
UserForm1.img1.Picture = LoadPicture("chart1.gif")

ActiveSheet.ChartObjects.Add(50, 50, 288, 216).Select
ActiveChart.ChartWizard Source:=Range(Worksheets(2).Cells(1, 3), Worksheets(2).Cells(A, 4)), Gallery:=xlLineMarkers, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=False, Title:="????? ???? ???????? ??? ????? v1(x)" '??????? ??????? ? ????? ??????????
ActiveChart.Axes(xlCategory).HasTitle = True
ActiveChart.Axes(xlCategory).AxisTitle.C haracters.Text = "x, ?"
ActiveChart.Axes(xlValue).HasTitle = True
ActiveChart.Axes(xlValue).AxisTitle.Char acters.Text = "v1, ???"
ActiveChart.Axes(xlValue).Select
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth
With Selection.Format.Line
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadWidth = msoArrowheadWide
End With
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlCategory).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth
With Selection.Format.Line
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadWidth = msoArrowheadWide
End With
ActiveChart.Axes(xlCategory).HasMajorGri dlines = True
ActiveChart.Export Filename:="chart2.gif", FilterName:="gif"
UserForm1.img2.Picture = LoadPicture("chart2.gif")

ActiveSheet.ChartObjects.Add(50, 50, 288, 216).Select
ActiveChart.ChartWizard Source:=Range(Worksheets(2).Cells(1, 5), Worksheets(2).Cells(A, 6)), Gallery:=xlLineMarkers, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=False, Title:="????? ??????????? ??????? M0(x)" '??????? ??????? ? ????? ??????????
ActiveChart.Axes(xlCategory).HasTitle = True
ActiveChart.Axes(xlCategory).AxisTitle.C haracters.Text = "x, ?"
ActiveChart.Axes(xlValue).HasTitle = True
ActiveChart.Axes(xlValue).AxisTitle.Char acters.Text = "M0, ??*?"
ActiveChart.Axes(xlValue).Select
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth
With Selection.Format.Line
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadWidth = msoArrowheadWide
End With
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlCategory).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth
With Selection.Format.Line
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadWidth = msoArrowheadWide
End With
ActiveChart.Axes(xlCategory).HasMajorGri dlines = True
ActiveChart.Export Filename:="chart3.gif", FilterName:="gif"
UserForm1.img3.Picture = LoadPicture("chart3.gif")

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Марина1290 0 / 0 / 0 Регистрация: 16.02.2019 Сообщений: 4

	Как упростить код VBA& 03.12.2019, 02:41. Показов 732. Ответов 0 Метки excel vba, vba, visual basic (Все метки) Как сократить код? Как записать повторяющийся 3 раза одинаковый кусок кода???? ActiveSheet.ChartObjects.Add(50, 50, 288, 216).Select ActiveChart.ChartWizard Source:=Range(Worksheets(2).Cells(1, 1), Worksheets(2).Cells(A, 2)), Gallery:=xlLineMarkers, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=False, Title:="????? ??????? ??? ????? v(x)" '??????? ??????? ? ????? ?????????? ActiveChart.Axes(xlCategory).HasTitle = True ActiveChart.Axes(xlCategory).AxisTitle.C haracters.Text = "x, ?" ActiveChart.Axes(xlValue).HasTitle = True ActiveChart.Axes(xlValue).AxisTitle.Char acters.Text = "v, ?" ActiveChart.Axes(xlValue).Select With Selection.Format.Line .Visible = msoTrue .Weight = 1.25 End With Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth With Selection.Format.Line .EndArrowheadLength = msoArrowheadLong .EndArrowheadWidth = msoArrowheadWide End With With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 End With ActiveChart.PlotArea.Select ActiveChart.Axes(xlCategory).Select With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 End With With Selection.Format.Line .Visible = msoTrue .Weight = 1.25 End With Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth With Selection.Format.Line .EndArrowheadLength = msoArrowheadLong .EndArrowheadWidth = msoArrowheadWide End With ActiveChart.Axes(xlCategory).HasMajorGri dlines = True ActiveChart.Export Filename:="chart1.gif", FilterName:="gif" UserForm1.img1.Picture = LoadPicture("chart1.gif") ActiveSheet.ChartObjects.Add(50, 50, 288, 216).Select ActiveChart.ChartWizard Source:=Range(Worksheets(2).Cells(1, 3), Worksheets(2).Cells(A, 4)), Gallery:=xlLineMarkers, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=False, Title:="????? ???? ???????? ??? ????? v1(x)" '??????? ??????? ? ????? ?????????? ActiveChart.Axes(xlCategory).HasTitle = True ActiveChart.Axes(xlCategory).AxisTitle.C haracters.Text = "x, ?" ActiveChart.Axes(xlValue).HasTitle = True ActiveChart.Axes(xlValue).AxisTitle.Char acters.Text = "v1, ???" ActiveChart.Axes(xlValue).Select With Selection.Format.Line .Visible = msoTrue .Weight = 1.25 End With Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth With Selection.Format.Line .EndArrowheadLength = msoArrowheadLong .EndArrowheadWidth = msoArrowheadWide End With With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 End With ActiveChart.PlotArea.Select ActiveChart.Axes(xlCategory).Select With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 End With With Selection.Format.Line .Visible = msoTrue .Weight = 1.25 End With Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth With Selection.Format.Line .EndArrowheadLength = msoArrowheadLong .EndArrowheadWidth = msoArrowheadWide End With ActiveChart.Axes(xlCategory).HasMajorGri dlines = True ActiveChart.Export Filename:="chart2.gif", FilterName:="gif" UserForm1.img2.Picture = LoadPicture("chart2.gif") ActiveSheet.ChartObjects.Add(50, 50, 288, 216).Select ActiveChart.ChartWizard Source:=Range(Worksheets(2).Cells(1, 5), Worksheets(2).Cells(A, 6)), Gallery:=xlLineMarkers, Format:=2, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=0, HasLegend:=False, Title:="????? ??????????? ??????? M0(x)" '??????? ??????? ? ????? ?????????? ActiveChart.Axes(xlCategory).HasTitle = True ActiveChart.Axes(xlCategory).AxisTitle.C haracters.Text = "x, ?" ActiveChart.Axes(xlValue).HasTitle = True ActiveChart.Axes(xlValue).AxisTitle.Char acters.Text = "M0, ??*?" ActiveChart.Axes(xlValue).Select With Selection.Format.Line .Visible = msoTrue .Weight = 1.25 End With Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth With Selection.Format.Line .EndArrowheadLength = msoArrowheadLong .EndArrowheadWidth = msoArrowheadWide End With With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 End With ActiveChart.PlotArea.Select ActiveChart.Axes(xlCategory).Select With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 End With With Selection.Format.Line .Visible = msoTrue .Weight = 1.25 End With Selection.Format.Line.EndArrowheadStyle = msoArrowheadStealth With Selection.Format.Line .EndArrowheadLength = msoArrowheadLong .EndArrowheadWidth = msoArrowheadWide End With ActiveChart.Axes(xlCategory).HasMajorGri dlines = True ActiveChart.Export Filename:="chart3.gif", FilterName:="gif" UserForm1.img3.Picture = LoadPicture("chart3.gif") 0