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

Форум по вопросам применения и программирования в Visio
Текущее время: 18 дек 2017, 18:54

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


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


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ Сообщений: 11 ] 
Автор Сообщение
 Заголовок сообщения: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 13:08 
Не в сети
Новичок

Зарегистрирован: 10 ноя 2014, 17:01
Сообщений: 39
Использую Visio c: 2002
Уровнь квалификации: Shapesheet, Программирование, VB6, VBA
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
Предлагаю всеобщему вниманию шаблон для просмотра иконок встроенных в MS Office. Применять эти иконки очень удобно в контекстном меню (секция Action подсекция ButtomFace). В общем шейп должен быть не только функциональным, но и симпатичным. :-)
Теперь, о том, как это работает: Включаем "Окно Данных Фигуры" (для ручного ввода номеров иконок), делаем двойной клик по шейпу и смотрим иконки кликнув правой клавишей в контекстном меню.
Вложение:
pic_6.jpg
pic_6.jpg [ 119.34 Кб | Просмотров: 61 ]

Вложение:
MS Office.rar [10.48 Кб]
Скачиваний: 52

П.С.: Данный шаблон был сделан по итогам прочтения одного из уроков Геннадия Туманова и некоего материала для Excel (см. вкладку) найденного на просторах интернета. Там есть описание всего. Но самое главное макрос позволяющий выводить картинки иконок на лист файла. У меня все не доходят руки, чтобы сделать что-то подобное для Visio. Так что дерзайте.


Вложения:
Excel.rar [291.66 Кб]
Скачиваний: 41
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 13:12 
Не в сети
Новичок

Зарегистрирован: 10 ноя 2014, 17:01
Сообщений: 39
Использую Visio c: 2002
Уровнь квалификации: Shapesheet, Программирование, VB6, VBA
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
П.С.2: 1. Забыл добавить повторный двойной клик позволяет просмотреть очередные 40 иконок и т.д. (до 10000 шт.) 2. Как оказалось в версии 2007 двойной клик работает стабильнее, чем в версии 2010.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 13:21 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
Еще у Digitall™ было про Разукрашиваем Actions


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 13:33 
Не в сети
Новичок

Зарегистрирован: 10 ноя 2014, 17:01
Сообщений: 39
Использую Visio c: 2002
Уровнь квалификации: Shapesheet, Программирование, VB6, VBA
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
Замечательно, данная статья прошла мимо меня.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 13:59 
Не в сети
Новичок

Зарегистрирован: 10 ноя 2014, 17:01
Сообщений: 39
Использую Visio c: 2002
Уровнь квалификации: Shapesheet, Программирование, VB6, VBA
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
Цитата:
Еще у Digitall™ было про Разукрашиваем Actions

В оправдание могу добавить: результат один и тот же, но алгоритм реализации несколько иной. :(


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 14:14 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
в оправдание можно добавить, что этой статьи нет в списке
Цитата:
Ты суслика видишь?
— Нет.
И я нет. А он есть!

я то знаю, что статья есть - он сам показывал ее мне. Поэтому зашел на самую последнюю статью (27). в самом низу страницы увидел квадратик 28
Изображение
клик и там нужная статья ! Надо будет его пожурить Изображение


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 14:29 
Не в сети
Новичок

Зарегистрирован: 10 ноя 2014, 17:01
Сообщений: 39
Использую Visio c: 2002
Уровнь квалификации: Shapesheet, Программирование, VB6, VBA
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
А вот его статью: "Почти конфиденциально в Visio 2003". (http://prodigitall.narod.ru/articles/article25.html) я прочитал внимательно и для себя реализовал это так (если будет интересно):
Код:
Sub B  Блокировка Документа()
       On Error GoTo ErrorBlockFile
       Dim Result As Integer, BlockFile As String, MsgText As String, NoAlignBox As String, _
           ShapeCount As Integer, ShapeNum As Integer, PageCount As Integer, PC As Integer, _
           LayerCount As Integer, LC As Integer
       Result = MsgBox("Да  -  Блокировать  Документ" & vbCrLf & _
               "Нет - Разблокировать Документ" & vbCrLf & _
               "Отмена и [X]  - Выход  Из  Макроса", vbYesNoCancel + vbExclamation, _
               " Блокировать / Разблокировать Документ! ")
       Select Case Result
              Case vbYes
                   BlockFile = "GUARD(1)"
                   NoAlignBox = "TRUE"
                   MsgText = "Файл Успешно Заблокирован!"
              Case vbNo
                   BlockFile = "0"
                   NoAlignBox = "FALSE"
                   MsgText = "Файл Успешно Разблокирован!"
              Case vbCancel
                   Exit Sub
       End Select
       PageCount = Application.ActiveDocument.Pages.Count
       For PC = PageCount To 1 Step -1
           LayerCount = Application.ActiveDocument.Pages.Item(PC).Layers.Count
           If BlockFile = "0" Then
              Application.ActiveDocument.Pages.Item(PC).PageSheet.CellsSRC(visSectionObject, _
                                              visRowPage, visPageUIVisibility).FormulaForceU = "0"
              Application.ActiveDocument.Pages.Item(PC).Background = False
              Application.ActiveDocument.Pages.Item(PC).BackPage = ""
              If LayerCount > 0 Then
                 For LC = 1 To LayerCount
                     Application.ActiveDocument.Pages.Item(PC).Layers.Item(LC). _
                                             CellsC(visLayerLock).FormulaForceU = BlockFile
                 Next LC
              End If
           End If
          'Set vsoShapes = Application.ActiveDocument.Pages.Item(PC).Shapes
           ShapeCount = Application.ActiveDocument.Pages.Item(PC).Shapes.Count
           For ShapeNum = ShapeCount To 1 Step -1
               'Set vsoShapeLock = Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum)
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockWidth).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockHeight).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockAspect).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockMoveX).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockMoveY).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockRotate).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockBegin).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockEnd).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockDelete).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockSelect).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockFormat).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockCustProp).FormulaForceU = BlockFile
              'Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockTextEdit).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockVtxEdit).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockCrop).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockGroup).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockCalcWH).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockFromGroupFormat).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockThemeColors).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowLock, visLockThemeEffects).FormulaForceU = BlockFile
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowMisc, visNoObjHandles).FormulaForceU = NoAlignBox
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowMisc, visNoCtlHandles).FormulaForceU = NoAlignBox
               Application.ActiveDocument.Pages.Item(PC).Shapes.ItemU(ShapeNum).CellsSRC(visSectionObject, visRowMisc, visNoAlignBox).FormulaForceU = NoAlignBox
            Next ShapeNum
            If BlockFile <> "0" Then
               If LayerCount > 0 Then
                  For LC = 1 To LayerCount
                      Application.ActiveDocument.Pages.Item(PC).Layers.Item(LC). _
                                              CellsC(visLayerLock).FormulaForceU = BlockFile
                  Next LC
               End If
            End If
       Next PC
       Application.ActiveWindow.ViewFit = visFitPage
       MsgBox MsgText, vbOKOnly + vbInformation, " Информация"
Exit Sub
ErrorBlockFile:
    Debug.Print Err.Description
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 15:12 
Не в сети
Ветеран

Зарегистрирован: 21 окт 2011, 12:01
Сообщений: 876
Откуда: г. Екатеринбург
Использую Visio c: 2011
Очков репутации: 118

Добавить очки репутацииУменьшить очки репутации
а я вот тут смотрю эти картинки :)
http://www.kebabshopblues.co.uk/2007/01/04/visual-studio-2005-tools-for-office-commandbarbutton-faceid-property/


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 16:50 
Не в сети
Новичок

Зарегистрирован: 10 ноя 2014, 17:01
Сообщений: 39
Использую Visio c: 2002
Уровнь квалификации: Shapesheet, Программирование, VB6, VBA
Очков репутации: 9

Добавить очки репутацииУменьшить очки репутации
Там, только до 4000 номера, а в офисе 2010 уже более 10000 иконок и список продолжает расти. :|


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 12 ноя 2014, 17:04 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
DarkSide писал(а):
в офисе 2010 уже более 10000 иконок и список продолжает расти. :|
думаю не все иконки офиса доступны через шейпшит
как-то раз участвовал в обсуждении В каком файле находятся значки (иконки) панелей инструментов MS Office


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Изучаем значки иконок MS Office
СообщениеДобавлено: 17 янв 2017, 14:07 
Не в сети
Ветеран
Аватара пользователя

Зарегистрирован: 28 апр 2013, 14:03
Сообщений: 547
Откуда: Вена, Австрия
Использую Visio c: 1998
Очков репутации: 100603

Добавить очки репутацииУменьшить очки репутации
В дополнение к теме - если это кому нужно для создания своей ленты (риббона), то можно воспользоваться расширением для студии
https://marketplace.visualstudio.com/it ... letevs2015

Автокомплит по имени (показывает иконки)
Изображение

_________________
Инструменты для облегчения создания диаграмм, и статьи по Visio:
http://unmanagedvisio.com/


Последний раз редактировалось Surrogate 17 янв 2017, 14:37, всего редактировалось 1 раз.
Добавлена ссылка на ветка для обсуждения расширения с автозаполнением


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

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



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

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


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

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