Как убрать текст в шейпе средствами VBA в Visio?

@lordblack · Регистрация: 07.10.2010

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

Такая проблема, нужно в Visio создать мини програмку в VBA которая бы убирала текст внутри шейпа! Может кто знает как это сделать, ну или где найти нужную информацию по данной теме? Заранее спасибо.

@~~Busine2009~~ · 07.10.2010, 18:10

lordblack,

Обработка конкретной фигуры:

Visual Basic

1
2
3

Sub m_1()
ActiveDocument.Pages(1).Shapes(1).Text = ""
End Sub

Обработка выделенной фигуры:

Visual Basic

1
2
3

Sub m_2()
ActiveWindow.Selection.Item(1).Text = ""
End Sub

Обработка всех фигур на одной странице:

Visual Basic

Sub m_3()
Dim oShape As Shape
For Each oShape In ActiveDocument.Pages(1).Shapes
  oShape.Text = ""
Next
End Sub

Обработка вообще всех фигур в документе:

Visual Basic

Sub m_4()
Dim oPage As Page
Dim oShape As Shape
For Each oPage In ActiveDocument.Pages
  For Each oShape In oPage.Shapes
    oShape.Text = ""
  Next
Next
End Sub

Кстати в Visio работает макрорекордер - его можно использовать как источник команд.

Осталось ещё выяснить, как сделать так, чтобы доступ к макросам был во всех открываемых файлах.

@Alex77755 · 07.10.2010, 18:59

Сообщение от Busine2009

lordblack,
Кстати в Visio работает макрорекордер - его можно использовать как источник команд.

Это интересно. Но я у себя не нашел как его включить. Видимо моя версия(5.0.0.662) безнадёжно устарела?

@~~Busine2009~~ · 07.10.2010, 19:21

Alex77755,
у меня Visio 2007 на английском языке.
Я делал запись вот так: Tools - Macro - Record New Macro...
Только он записывается в текущий документ. Вот как сделать так, чтобы макросы записывались как в Word (в Normal) или как в Excel (Личная книга макросов).

Кстати команды (методы, свойства) появляются когда ставишь точку как в Wordе до конца, а не как в Excel, где только 2 уровня подсказываются.

@lordblack 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 5
		1
	Как убрать текст в шейпе средствами VBA в Visio? 07.10.2010, 07:26. Показов 4936. Ответов 3 Метки нет (Все метки) Такая проблема, нужно в Visio создать мини програмку в VBA которая бы убирала текст внутри шейпа! Может кто знает как это сделать, ну или где найти нужную информацию по данной теме? Заранее спасибо. 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	07.10.2010, 18:59	3
	Сообщение от Busine2009 lordblack, Кстати в Visio работает макрорекордер - его можно использовать как источник команд. Это интересно. Но я у себя не нашел как его включить. Видимо моя версия(5.0.0.662) безнадёжно устарела? 0

@~~Busine2009~~ Заблокирован
	07.10.2010, 19:21	4
	Alex77755, у меня Visio 2007 на английском языке. Я делал запись вот так: Tools - Macro - Record New Macro... Только он записывается в текущий документ. Вот как сделать так, чтобы макросы записывались как в Word (в Normal) или как в Excel (Личная книга макросов). Кстати команды (методы, свойства) появляются когда ставишь точку как в Wordе до конца, а не как в Excel, где только 2 уровня подсказываются. 0