• Виктор
  • Восстановленный участник
  • На форуме с 12 января 2006г.
  • Сообщений: 19
  • Спасибо: 0

Тема: программное переключение модель-лейаут

а кто-нибудь знает как с помощью vba активировать нужный лейаут, переключиться в модель из пространтва листа и наоборот?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: программное переключение модель-лейаут

Попробуй устанавливать переменную ctab, только сначала надо будет получить имена вкладок (чтоб не было ошибок типа "Такой вкладки нет")
---
ИМХО, поскольку в vba не силен

  • Виктор
  • Восстановленный участник
  • На форуме с 12 января 2006г.
  • Сообщений: 19
  • Спасибо: 0

Re: программное переключение модель-лейаут

к сожалению не могу найти доступ к переменной ctab из vba

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: программное переключение модель-лейаут

Смотри на ThisDrawing.GetVariable и SetVariable. Например, так:

Function GetVar(sVarName As String)
  ThisDrawing.GetVariable sVarName
End Function
Sub SetVar(sVarName As String, vVarValue As Variant)
  ThisDrawing.SetVariable sVarName, vVarValue
End Sub

  • Виктор
  • Восстановленный участник
  • На форуме с 12 января 2006г.
  • Сообщений: 19
  • Спасибо: 0

Re: программное переключение модель-лейаут

благодарю за помощь, работает

  • На форуме с 21 июня 2005г.
  • Сообщений: 21
  • Спасибо: 0

Re: программное переключение модель-лейаут

есть вот такая коллекция:
ThisDrawing.Layouts.Item
и есть вот такое своейство:
ThisDrawing.ActiveLayout

  • Виктор
  • Восстановленный участник
  • На форуме с 12 января 2006г.
  • Сообщений: 19
  • Спасибо: 0

Re: программное переключение модель-лейаут

действительно так проще
упустил свойство activeLayout - read/write, при его использовании считал что он просто read
спасибо Дмитрий