I have shut down X5 until SP1 because of all the constant problems that everyone else seems to be having as well, but I really do like the Document Palette. Is there a macro or work around or . . . ? that would work in X4 to simulate the Document Palette?
Thank You
DCOg
http://macromonster.com/index.php?mod=descr&id_desc=75
Hi.
Thats a pretty good idea.
You could create a shortcut or shortcut icon to these simple subs for x4. One adds colors, and one deletes em. I would of made it more automatic but there's a few bugs that would mess with it. (involving Palette.DuplicatePresent and Palettes.CreateFromDocument with pantones just in case anyone wants to look into it.)
'---------------------------------------------------------------------------------------' Module : GDG' Author : John Johnson' Website : www.gdgmacros.com' Date : 5/20/2010' Purpose :'---------------------------------------------------------------------------------------Option ExplicitPrivate Sub resetPalette() On Error Resume Next Dim pal As Palette, i As Integer Set pal = Palettes("docPal") If pal.Colors.Count > 0 Then For i = pal.Colors.Count To 1 Step -1 pal.RemoveColor i Next i End IfEnd SubPrivate Sub createDocPal() Dim docPal As Palette Dim col As Color Dim s As Shape Dim pass As Boolean Dim i As Integer pass = False If Not ActiveDocument Is Nothing Then Set docPal = Palettes.CreateFromDocument("docPal", "C:\docPal.cpl", True) End If End Sub
-John
Jon - thank you for that. Can you tell me what to do with these.
I have no idea.
ThanksDCOg
said: Jon - thank you for that. Can you tell me what to do with these. I have no idea. ThanksDCOg
You can get the completed document palette macro for x4 on my website. It's free and works great. It also includes icons.