Отправляет email-рассылки с помощью сервиса Sendsay

VBA tips - подсказки и решения на VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Свой Бизнес" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Ноябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
alex.viter

Статистика

522 подписчиков
0 за неделю
←   Все выпуски   →

Макрос замены черного фона рисунка прозрачностью, Как получить список идентификаторов иконок для кнопок


Макрос замены черного фона рисунка прозрачностью

Если вы используете в своих документах рисунки с черным фоном (захваченные в ОС DOC или ее эмуляции), то чтобы заменить черный фон прозрачностью следует воспользоваться следующим макросом (спасибо читательнице Ольге): 
Sub NoBlack()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
    iShape.PictureFormat.TransparentBackground = msoTrue
    iShape.PictureFormat.TransparencyColor = RGB(0, 0, 0)
    iShape.Fill.Visible = msoFalse
Next iShape
End Sub
Прокомментировать: http://vbatips.ru/2007/11/18/makros-zameny-chernogo-fona-risunka-prozrachnostyu/

Как получить список идентификаторов иконок для кнопок

Чтобы получить список идентификаторов иконок и их соответствий командам, пунктам меню и панелей в редакторе Word, следует выполнить следующий макрос: 
Sub viewID()
'Макрос отображения идентификаторов панелей инструментов, команд и пунктов меню
Dim comBar As CommandBar
Dim comBarControl As CommandBarControl
Dim i As Integer
For Each comBar In CommandBars
   For Each comBarControl In comBar.Controls
      With Selection
         .TypeText comBarControl.Caption & " - " & comBarControl.ID & " - " & _
         comBar.Name & vbCrLf
      End With
   Next
Next
End Sub
В Excel можно использовать следующий код: 
Sub sub1()
Dim CB As CommandBar
Dim CBC As CommandBarControl
Dim i As Integer
For Each CB In CommandBars
 For Each CBC In CB.Controls
   i = i + 1
    Cells(i, 1) = CBC.Caption
    Cells(i, 2) = CBC.ID
    Cells(i, 3) = CB.Name
 Next
Next
End Sub
Источник: RusFAQ.ru
Статья по теме: Как определить ID элементов меню и панелей инструментов

Прокомментировать: http://vbatips.ru/2007/11/19/kak-poluchit-spisok-identifikatorov-ikonok-dlya-knopok/

В избранное