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

Форум по вопросам применения и программирования в Visio
Текущее время: 29 мар 2024, 15:20

Часовой пояс: UTC + 3 часа [ Летнее время ]


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


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 29 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 16 июл 2012, 11:17 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
я сам офигева-аааа-ааал с этого хоткея :)

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 16 июл 2012, 11:26 
Не в сети
Ветеран
Аватара пользователя

Зарегистрирован: 24 апр 2012, 12:36
Сообщений: 180
Очков репутации: 11

Добавить очки репутацииУменьшить очки репутации
:lol:


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 16 июл 2012, 12:04 
Не в сети
Новичок

Зарегистрирован: 15 июл 2012, 10:33
Сообщений: 37
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
говорит обьект не поддерживает этот метод
Цитата:
Dim Shp As Shape
Dim Shps() As Shape
Dim str As String
Dim ServCount As Integer
str = "Ñåðâåð"
For Each Shp In ActivePage.Shapes
If Shp.ShapeType = str Then
ServCount = ServCount + 1
End If
Next Shp
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 16 июл 2012, 12:09 
Не в сети
Новичок

Зарегистрирован: 15 июл 2012, 10:33
Сообщений: 37
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
даже Shp.Prop.ShapeType тож самое


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 16 июл 2012, 12:19 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
А что такое ShapeType ?
как я понял нам среди всего зоопарка на листе нужно найти шейпы сделанные на основе некоего мастера - "сервер"
у меня работает такой код.
Код:
Sub NNN()
Dim Shp As Shape
Dim Shps() As Shape
Dim str As String
Dim ServCount As Integer
str = "Server"
For Each Shp In ActivePage.Shapes
If Shp.Master.Name = str Then
ServCount = ServCount + 1
End If
Next Shp
End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 16 июл 2012, 12:29 
Не в сети
Новичок

Зарегистрирован: 15 июл 2012, 10:33
Сообщений: 37
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Код:
Sub NNN()
    Dim Shp As Shape
    Dim Shps() As Shape
    Dim str As String
    Dim ServCount As Integer
    str = "Server"
    For Each Shp In ActivePage.Shapes
        If Shp.Master.Name = str Then
            ServCount = ServCount + 1
        End If
    Next Shp
    ReDim Shps(ServCount)
    Dim i As Integer
    i = 0
    For Each Shp In ActivePage.Shapes
        If Shp.Master.Name = str Then
            Set shps(i) = 'как указать на найденный сервер'
            i = i + 1
        End If
    Next Shp
End Sub

Как определить массив ссылок на найденные сервера


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 16 июл 2012, 12:50 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Код:
Sub NNN()
    Dim Shp As Shape
    Dim Shps()  ' это массив для хранения имен шейпов, на базе мастера "сервер"
    Dim str As String
    Dim ServCount As Integer
    str = "Server"
    For Each Shp In ActivePage.Shapes
        If Shp.Master.Name = str Then
Set shps(ServCount) =  shp.name 'заносим имя этого шейпа в массив'
            ServCount = ServCount + 1
        End If
    Next Shp
    ReDim Shps(ServCount) ' иногда ReDim дает ошибку
   End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 18 июл 2012, 10:36 
Не в сети
Новичок

Зарегистрирован: 15 июл 2012, 10:33
Сообщений: 37
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Код:
Sub Èíâåíòàðèçàöèÿ()
    Dim Shp As Shape
    Dim Shps() As Shape
    Dim ServCount As Integer
    For Each Shp In ActivePage.Shapes
            ServCount = ServCount + 1
    Next Shp
    ReDim Shps(ServCount)
    Dim i As Integer
    For Each Shp In ActivePage.Shapes
        Set Shps(i) = Shp
        i = i + 1
    Next Shp
    For i = 0 To ServCount
        If Shps(i).'Как написать свойство указанное в шейп листе как  Prop.Room' = "108" Then
            MsgBox Shps(i)
        End If
    Next
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Получение объектов из ActivePage и их данных
СообщениеДобавлено: 18 июл 2012, 10:47 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
rakch писал(а):
У меня все тот же вопрос, как бы можно было обратится к свойству моего обьекта в том файле визио например с таким свойством
Prop.AssetNumber "Инвентарный номер" "101040020813"

Код:
Sub rakch()
Dim sh As Shape
For Each sh In ActivePage.Shapes
If sh.Cells("Prop.AssetNumber") = 101040020813# Then MsgBox "Ура нашел!!!"
Next sh
End Sub

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 29 ]  На страницу Пред.  1, 2

Часовой пояс: UTC + 3 часа [ Летнее время ]



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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB