Добавлено форматирование картинок

RibbonCallbacks.bas

@@ -10,7 +10,10 @@ End Sub
 
 'PicFormatter (элемент: button, атрибут: onAction), 2010+
 Private Sub PicFormatter(control As IRibbonControl)
-    MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+
+    Call ML_PicFormatter
+
 End Sub
 
 'AddListA4 (элемент: button, атрибут: onAction), 2010+
@@ -64,3 +67,8 @@ Private Sub AddPageNumber(control As IRibbonControl)
     MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
 End Sub
 
+'TestMacros (элемент: button, атрибут: onAction), 2010+
+Private Sub TestMacros(control As IRibbonControl)
+    'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
+    Call ML_TestMacros
+End Sub