nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Excel Footer Updates

pennyg

I have an Excel add-in which will update the footer using the events

objApplication_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean) and
objApplication_WorkbookOpen(ByVal Wb As Workbook).

I would like to update the footer on a new Save, New Version save and Profile update as per the standard Word Footer macros. The following events do not appear to trigger anything.

Private WithEvents objExtensibilitySink As iManO2K.iManageExtensibility
Private WithEvents objEditProfileCmdSink As IMANEXTLib.EditProfileCmd
Private WithEvents objIManFileSaveCmdSink As MANEXT2Lib.IManFileSaveCmd
Private WithEvents objNewVersionCmdSink As IMANEXTLib.NewVersionCmd

Private Sub objNewVersionCmdSink_PreOnOK(ByVal pMyInterface As Object)
MsgBox "Post ok new version"
End Sub

We are using Filesite 8.2 SP1.

Can anyone shed some light on the correct events?

regards

Find more posts tagged with

Comments

jny

I have an Excel add-in which will update the footer using the events

objApplication_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean) and
objApplication_WorkbookOpen(ByVal Wb As Workbook).

I would like to update the footer on a new Save, New Version save and Profile update as per the standard Word Footer macros. The following events do not appear to trigger anything.

Private WithEvents objExtensibilitySink As iManO2K.iManageExtensibility
Private WithEvents objEditProfileCmdSink As IMANEXTLib.EditProfileCmd
Private WithEvents objIManFileSaveCmdSink As MANEXT2Lib.IManFileSaveCmd
Private WithEvents objNewVersionCmdSink As IMANEXTLib.NewVersionCmd

Private Sub objNewVersionCmdSink_PreOnOK(ByVal pMyInterface As Object)
MsgBox "Post ok new version"
End Sub

We are using Filesite 8.2 SP1.

Can anyone shed some light on the correct events?

regards

Which version of Excel is this? Would you send in your .xla?

pennyg

Thanks jny. We are using Excel 2003. Attached is a cut down version of the .xla with just the necssary parts. I have removed the actual footer code as this part is working and for now just showing a message box.

cheers

Migrateduser

Could you post the footer code too?

jny

Thanks jny. We are using Excel 2003. Attached is a cut down version of the .xla with just the necssary parts. I have removed the actual footer code as this part is working and for now just showing a message box.

cheers

You are missing all the imanageextensibility events that pass in the commands correpsonding to save as new, save as new version, editprofile, etc. You only have the command events which do not fire when you do not have the actual handle to those commands that are returned through the imanageextensibility events.

Note that I included both legacy and EAI save new as I don't know which integration mode you are using - your macro code has not made that clear to me.



Private WithEvents objExtensibilitySink As iManO2K.iManageExtensibility
Private WithEvents objEditProfileCmdSink As IMANEXTLib.EditProfileCmd
Private WithEvents objNewVersionCmdSink As IMANEXTLib.NewVersionCmd

'Legacy import
Private WithEvents objImportCmdSink As IMANEXTLib.ImportCmd

'EAI import
Private WithEvents objIManFileSaveCmdSink As IMANEXT2Lib.IManFileSaveCmd

Private Sub objExtensibilitySink_OnCreateNewVersion( _
        ByVal objNewVersionCmd As Object)
    Set objNewVersionCmdSink = objNewVersionCmd
End Sub

Private Sub objExtensibilitySink_OnEditProfile( _
        ByVal objEditProfileCmd As Object)
    Set objEditProfileCmdSink = objEditProfileCmd
End Sub

'Legacy Save
Private Sub objExtensibilitySink_OnCreateNewProfile( _
        ByVal objImportCmd As Object)
    Set objImportCmdSink = objImportCmd
End Sub

'EAI Save
Private Sub objExtensibilitySink_OnIManFileSave(ByVal objIManFileSaveCmd As Object)
    Set objIManFileSaveCmdSink = objIManFileSaveCmd
End Sub

pennyg

Thanks, very helpful as always.