V-Форум / Corel VBA / Тема: Огромная коллекция макросов для Corel12/X3

Re: Огромная коллекция макросов для Corel12/X3

 15/08/2007 10:24:37 #Link

Спасибо боьшущее, очень полезная весчь

Re: Огромная коллекция макросов для Corel12/X3

 11/07/2008 14:07:27 #Link

Спасибо! Надеюсь это то, что нужно!

Re: Огромная коллекция макросов для Corel12/X3

 11/07/2008 15:08:55 #Link

wow!
спасибо

Re: Огромная коллекция макросов для Corel12/X3

 13/07/2008 20:31:23 #Link

спасибо огромное! а вот с икс4 совместимы эти штучки ??

вопрос снят, проверил всё пашет.

Re: Огромная коллекция макросов для Corel12/X3

 20/09/2008 13:18:27 #Link

О! пасибо громадное! Кста, если есть у кого нормальный Crop Markeк плиз поделитесь

Re: Огромная коллекция макросов для Corel12/X3

 27/10/2008 15:22:20 #Link

Полезность налицо!

Re: Огромная коллекция макросов для Corel12/X3

 27/10/2008 16:07:08 #Link

? рот отпал... (нижняя его часть )
СПАСИБО!

Re: Огромная коллекция макросов для Corel12/X3

 28/10/2008 11:14:11 #Link

забрал в свой сарайчик. теперь бы по полочкам, по полочкам...
Автору спасибо

Re: Огромная коллекция макросов для Corel12/X3

 28/03/2011 12:47:47 #Link

В Х5 перестали работать Scrollы. Кто знает как восстановить?

Re: Огромная коллекция макросов для Corel12/X3

 28/03/2011 13:31:49 #Link

Еще одна проблема до кучи. Убрал менюшку скриптом. А он потом отказывается понимать выделенную ниже строчку. До этого понимал. Как вылечить проблему, или хотя-бы вернуть панель инструиентов?

Sub ShowHideToolbars()
Dim cbar As Object, cB As Variant, bars() As String
Dim strSavedBars$
strSavedBars = GetSetting("ShowHideToolbars", "ToolbarState", "Toolbars"
If strSavedBars <> "" Then
For Each cB In Split(strSavedBars, ":"
CommandBars(cB).Visible = True
Next cB
SaveSetting "ShowHideToolbars", "ToolbarState", "Toolbars", ""
Else
nCount = CommandBars.Count: nSavedCount = 0
ReDim bars(0 To nCount - 1)
For n = 1 To nCount
With CommandBars(n)
If .Name <> "Status Bar" Then
If .Visible Then
.Visible = False
bars(nSavedCount) = .Name
nSavedCount = nSavedCount + 1
End If
End If
End With
Next n
ReDim Preserve bars(0 To nSavedCount - 1)
SaveSetting "ShowHideToolbars", "ToolbarState", "Toolbars", Join(bars, ":"
SendKeys "{ESC 10}"
End If
End Sub

« 1 (2) 3 »