А сама по себе третья строка работать не будет.Series.Format.Line.Visible = msoFalse
Series.Format.Line.Visible = msoTrue
Series.Format.Line.ForeColor.RGB = RGB(0, 255 , 0)
В MS VBA много таких закидонов. Просто нужно их обходить. А чтобы не писать много кода можно сократить до:perasperaadastra wrote:Почему VBA для офиса — такой... гммм... ну такой какой есть? Ну вот, например, ради того, чтобы поменять цвет линии на графике, нужно сделать вот так:
А сама по себе третья строка работать не будет.Series.Format.Line.Visible = msoFalse
Series.Format.Line.Visible = msoTrue
Series.Format.Line.ForeColor.RGB = RGB(0, 255 , 0)
Code: Select all
with Series.Format.Line
.Visible = msoFalse
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 255 , 0)
end withпоставьте breakpoints, где вы предпологаете ошибку, например в начало каждой процедуры и так можно найти то место где Type mismatch.perasperaadastra wrote:Еще очень радуют сообщения об ошибке. "Type mismatch" — ГДЕ ИМЕННО???
Вы будете удивлены, но в LibreOffice именно так и сделали. Оставили VBA, чтобы работало с файлами от MS, и перешли на Python.perasperaadastra wrote:Я не знаю, почему МС не отказались от VBA в офисе... Оставили бы legacy поддержку, и перешли бы на что-нибудь более лучшее. Я лет 10 не трогал VBA, и теперь, когда, пришлось, я уже отвык
Я как-то попробовал запустить MS VBA код на Либре и он не пошел. Выдал кучу ошибок. Разбираться с ними у меня небыло желания. Но однозначной совместимости я не увидел.perasperaadastra wrote:О! Не знал. Надо попробовать Либру.
В xlsm (новый формат под Windows since 2007)perasperaadastra wrote:Кстати, в МС офисе удивило, что для сохранения кода нужно сохранять в xls, а не в xlsx.
Кстати я тут недавно вычитал, что для того, чтобы форсировать пересчет всех формул на всех Worksheets испoльзуют вот такой код:perasperaadastra wrote:Почему VBA для офиса — такой... гммм... ну такой какой есть? Ну вот, например, ради того, чтобы поменять цвет линии на графике, нужно сделать вот так:
А сама по себе третья строка работать не будет.Series.Format.Line.Visible = msoFalse
Series.Format.Line.Visible = msoTrue
Series.Format.Line.ForeColor.RGB = RGB(0, 255 , 0)
Code: Select all
Dim oSht as worksheet
Application.Calculation=xlCalculationManual
for each oSht in Worksheets
oSht.enablecalculation=false
osht.enablecalculation=true
next osht
Application.calculate
В нашей машине педали тормоза нет, а тормозить надо резким включением/выключением обдува. Ничего, все привыкли. Зачем лишняя педаль?thinker wrote: Кстати я тут недавно вычитал, что для того, чтобы форсировать пересчет всех формул на всех Worksheets испoльзуют вот такой код:
где enablecalculation пропердь выключается, а потом включается. Как видим, это стандартный прием в VBA. После этого ваш случай не покажется таким уж странным и нелепым.Code: Select all
Dim oSht as worksheet Application.Calculation=xlCalculationManual for each oSht in Worksheets oSht.enablecalculation=false osht.enablecalculation=true next osht Application.calculate
Нет, скорее особенность языка. Переводя на тему автомобилей, у одних дверца бензобака со стороны водителя, у других со стороны пассажирa. Вряд-ли кто-то из водителей замарачивается с этим, просто привыкли и используют. Ну и тут так же.helg wrote:В нашей машине педали тормоза нет, а тормозить надо резким включением/выключением обдува. Ничего, все привыкли. Зачем лишняя педаль?
Нужно привыкнуть, понять зачем это надо и потом использовать не задавая [глупых] вопросов типа, "а почему оно не так, как я привык в XYZ языке?" или "мне кажется не логично". Хотя, я уверен, если спросить у профессионала по VBA, ну или у его разработчика, он бы объяснил, почему конкретно это так работает, а не иначе.Использование функций для производства действий, а переменных - для храниения состояния, - это не особенность какого-то языка, а фундаментальная концепция программирования.thinker wrote:Нет, скорее особенность языка. Переводя на тему автомобилей, у одних дверца бензобака со стороны водителя, у других со стороны пассажирa. Вряд-ли кто-то из водителей замарачивается с этим, просто привыкли и используют. Ну и тут так же.helg wrote:В нашей машине педали тормоза нет, а тормозить надо резким включением/выключением обдува. Ничего, все привыкли. Зачем лишняя педаль?
Да, но иногда требуется отключить автоматический пересчет, чтобы увеличить скорость какой-нибудь macro. И по её завершении пересчитать все формулы on all worksheets.Andriy777 wrote:Это не особенность языка VBA, а конкретной объектной модели. Вообще непонятно, почему надо было все пересчитывать. Ведь, при включенном авто-пересчете вы просто меняете какую-нибудь ячейку. Все должно считаться автоматически.