Hello, Ed!
You wrote  on Sat, 16 Oct 2004 12:57:12 +0100:

EB> Dim InitialWindowState As Integer
EB> InitialWindowState = ThisDocument.ActiveWindow.WindowState
EB> ThisDocument.ActiveWindow.WindowState = pbWindowStateMinimize
EB> ThisDocument.ActiveWindow.WindowState = InitialWindowState

EB> Do you have a SINGLE Document_Open macro?
EB> Do you have BOTH CommandBars("Add-ins").Add() statements in it?

Ed,

I wasn't sure where the new code went so I made a stab at it and I was able to compile fine but it had no impact on the problems I described. I've included my VBA code below and you'll be able to see how I've coded all of it. I probably have the minimize/initial window state code more than I need it (twice) but wasn't sure.

Thanks,
Colonel Blip.  
E-mail: colonel.blip@removethespambigfoot.com

Dim WithEvents cbbMyButton As Office.CommandBarButton
Dim WithEvents cbbMyButton1 As Office.CommandBarButton
Dim InitialWindowState As Integer

'This will handle 4x6 resizing

Private Sub cbbMyButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   With ThisDocument.Selection
       If Not .ShapeRange.Count = 1 Then
           Beep
       Else
           With .ShapeRange(1)
               If .Width >= .Height Then
                   .Width = 432
                   .Height = 288
               Else
                   .Width = 288
                   .Height = 432
               End If
           End With
       End If
   End With
End Sub

Private Sub Document_BeforeClose(Cancel As Boolean)
   On Error Resume Next
   CommandBars(3).Controls("Resize selection to 6"" by 4""").Delete
End Sub

Private Sub Document_Open()
InitialWindowState = ThisDocument.ActiveWindow.WindowState
ThisDocument.ActiveWindow.WindowState = pbWindowStateMinimize
ThisDocument.ActiveWindow.WindowState = InitialWindowState
   
   On Error Resume Next
   Set cbbMyButton = CommandBars(3).Controls.Add(, , , , True)
   cbbMyButton.FaceId = 181
   cbbMyButton.Caption = "Resize selection to 6"" by 4"""
End Sub

'This is to handle 8x10 resizing

Private Sub cbbMyButton1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   With ThisDocument.Selection
       If Not .ShapeRange.Count = 1 Then
           Beep
       Else
           With .ShapeRange(1)
               If .Width >= .Height Then
                   .Width = 720
                   .Height = 576
               Else
                   .Width = 576
                   .Height = 720
               End If
           End With
       End If
   End With
End Sub

Private Sub Document_BeforeClose1(Cancel As Boolean)
   On Error Resume Next
   CommandBars("WLO Custom").Controls("Resize selection to 10"" by 8""").Delete
End Sub

Private Sub Document_Open1()
InitialWindowState = ThisDocument.ActiveWindow.WindowState
ThisDocument.ActiveWindow.WindowState = pbWindowStateMinimize
ThisDocument.ActiveWindow.WindowState = InitialWindowState
   On Error Resume Next
   Set cbbMyButton1 = CommandBars("WLO Custom").Controls.Add(, , , , True)
   cbbMyButton1.FaceId = 185
   cbbMyButton1.Caption = "Resize selection to 10"" by 8"""
End Sub