Корректировка данных

skov

Необходимо выполнить однотипные изменения в таблицах ShapeSheet. Как можно облегчить задачу, ускорить если фигур на листе много?

Surrogate писал(а):

конкурс экстрасенсов 90lvl данного форума

Surrogate

и шо у каждой из фигур надо что-то таки поменять ?

Shishok

Это тебе надо попробовать надстройку от nbelyh.
http://unmanagedvisio.com/ru/загрузка/
Скачать и установить - ShapeSheetWatch. Там можно менять формулы и значения в нескольких шейпах сразу.

skov

Shishok

Какие то маленькие изображения. Ничего не разобрать.

skov

Нужно заменить 100% на 1% и сделать динамическую гиперссылку.

Shishok

Изменить ячейку Scale можно так:
(Только сначала все шейпы выделить)

Код:

Sub EditScale()
Dim i As Integer

With ActiveWindow
    For i = 1 To .Selection.Count
       .Selection(i).CellsSRC(visSectionCharacter, 0, visCharacterFontScale).FormulaForceU = "1%"
    Next
End With

End Sub

А с гиперссылками не понятно. Напиши конкретно словами что надо.

Shishok

Совсем из головы вылетело! :wall:

Вообще-то ячейку Scale для выделенных шейпов можно изменить и штатно:

skov

Спасибо. При помощи ShapeSheetWatch получилось изменить. "Address" гиперссылки должна была равняться данным из ячейки "Prop._VisDM_Ссылка"

Форум пользователей Visio

Правила форума

Корректировка данных

Кто сейчас на конференции