Sub Workbook_NewSheet(ByVal Sh As Object)
With Sh.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
End With
End Sub
Page Setup в Excel-e
Я извиняюсь, но мне нужна помошь.
Kогда я вставляю новый шит, она меняет свои параметры т.е. Page setup принимает своё искомое положение, а пужно чтобы когда в одном шите я менял параметры т.е. Left, Top, Right,Bottom
и при вставке другого шита она не изменялясь
Спасибо зараннее.
Kогда я вставляю новый шит, она меняет свои параметры т.е. Page setup принимает своё искомое положение, а пужно чтобы когда в одном шите я менял параметры т.е. Left, Top, Right,Bottom
и при вставке другого шита она не изменялясь
Спасибо зараннее.
Цитата:
Originally posted by SerArchi
Я извиняюсь, но мне нужна помошь.
Kогда я вставляю новый шит, она меняет свои параметры т.е. Page setup принимает своё искомое положение, а пужно чтобы когда в одном шите я менял параметры т.е. Left, Top, Right,Bottom
и при вставке другого шита она не изменялясь
Спасибо зараннее.
Я извиняюсь, но мне нужна помошь.
Kогда я вставляю новый шит, она меняет свои параметры т.е. Page setup принимает своё искомое положение, а пужно чтобы когда в одном шите я менял параметры т.е. Left, Top, Right,Bottom
и при вставке другого шита она не изменялясь
Спасибо зараннее.
[COLOR=red]Маловразумительно.[/COLOR]
Например, она - это что? А Left, Top, Right, Bottom к чему относится?
Сформулируйте свой вопрос более корректно, тогда, вероятно, и ответ получите такой, какой Вам нужен.
А пока - это головоломка какая-то.
Цитата:
Originally posted by Dmitrii
[COLOR=red]Маловразумительно.[/COLOR]
Например, она - это что? А Left, Top, Right, Bottom к чему относится?
Сформулируйте свой вопрос более корректно, тогда, вероятно, и ответ получите такой, какой Вам нужен.
А пока - это головоломка какая-то.
[COLOR=red]Маловразумительно.[/COLOR]
Например, она - это что? А Left, Top, Right, Bottom к чему относится?
Сформулируйте свой вопрос более корректно, тогда, вероятно, и ответ получите такой, какой Вам нужен.
А пока - это головоломка какая-то.
она это то что Вы думаете Left, Top, Right, Bottom которые относиться к Page Setup
Цитата:
Originally posted by SerArchi
она это то что Вы думаете Left, Top, Right, Bottom которые относиться к Page Setup
она это то что Вы думаете Left, Top, Right, Bottom которые относиться к Page Setup
Теперь понятно.
Советую использовать событие [COLOR=blue]NewSheet[/COLOR] рабочей книги.
Вот пример:
Код:
Поместите его в модуль кода для объекта [COLOR=blue]"ЭтаКнига" ("ThisWorkbook")[/COLOR]. Макрос будет выполняться при каждой вставке нового листа в данную рабочую книгу.
Если хотите работать с метрической системой единиц, то вместо метода [COLOR=blue]InchesToPoints()[/COLOR] используйте метод [COLOR=blue]CentimetersToPoints()[/COLOR]. В скобках, естественно, указывайте значение в сантиметрах: [COLOR=blue]CentimetersToPoints(1)[/COLOR].
Цитата:
Originally posted by Dmitrii
Теперь понятно.
Советую использовать событие [COLOR=blue]NewSheet[/COLOR] рабочей книги.
Вот пример:
Поместите его в модуль кода для объекта [COLOR=blue]"ЭтаКнига" ("ThisWorkbook")[/COLOR]. Макрос будет выполняться при каждой вставке нового листа в данную рабочую книгу.
Если хотите работать с метрической системой единиц, то вместо метода [COLOR=blue]InchesToPoints()[/COLOR] используйте метод [COLOR=blue]CentimetersToPoints()[/COLOR]. В скобках, естественно, указывайте значение в сантиметрах: [COLOR=blue]CentimetersToPoints(1)[/COLOR].
Теперь понятно.
Советую использовать событие [COLOR=blue]NewSheet[/COLOR] рабочей книги.
Вот пример:
Код:
Sub Workbook_NewSheet(ByVal Sh As Object)
With Sh.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
End With
End Sub
With Sh.PageSetup
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
End With
End Sub
Поместите его в модуль кода для объекта [COLOR=blue]"ЭтаКнига" ("ThisWorkbook")[/COLOR]. Макрос будет выполняться при каждой вставке нового листа в данную рабочую книгу.
Если хотите работать с метрической системой единиц, то вместо метода [COLOR=blue]InchesToPoints()[/COLOR] используйте метод [COLOR=blue]CentimetersToPoints()[/COLOR]. В скобках, естественно, указывайте значение в сантиметрах: [COLOR=blue]CentimetersToPoints(1)[/COLOR].
Спасибо Дмитрий джан