http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 10:00:19 +0000 Tue, 24 Oct 2006 10:14:15 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=5344 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=5344&PID=16769&title=invalid-procedure-call-office-2007-theme#16769 Author: jcollier
Subject: 5344
Posted: 24 October 2006 at 10:14am

I was afraid you were going to say that.  You were right.]]> Tue, 24 Oct 2006 10:14:15 +0000 http://forum.codejock.com/forum_posts.asp?TID=5344&PID=16769&title=invalid-procedure-call-office-2007-theme#16769 http://forum.codejock.com/forum_posts.asp?TID=5344&PID=16753&title=invalid-procedure-call-office-2007-theme#16753 Author: sserge
Subject: 5344
Posted: 24 October 2006 at 3:49am

Looks like there is a problem with components registration. Try reinstalling Calendar ActiveX.

Also you may probably have 2 references to different versions of the component. Select only one to be used.

--
WBR,
Serge
]]> Tue, 24 Oct 2006 03:49:42 +0000 http://forum.codejock.com/forum_posts.asp?TID=5344&PID=16753&title=invalid-procedure-call-office-2007-theme#16753 http://forum.codejock.com/forum_posts.asp?TID=5344&PID=16742&title=invalid-procedure-call-office-2007-theme#16742 Author: jcollier
Subject: 5344
Posted: 23 October 2006 at 11:58am

When I run the following code, which is straight from the sample project provided for Calendar 10.3.1 I get an error 5 "Invalid Procedure Call"

Private Sub mnuEnableTheme2007_Click()

    Dim objThemeOfice2007 As CalendarThemeOffice2007
    Set objThemeOfice2007 = CalendarControl.Theme
   
    If objThemeOfice2007 Is Nothing Then
        Set objThemeOfice2007 = New CalendarThemeOffice2007
       
'error occurs on the line below
        CalendarControl.SetTheme objThemeOfice2007
                       
        Dim pPX As New PropExchange
        If pPX.CreateAsXML(True, "CalendarThemeOffice2007") Then
            If pPX.LoadFromFile(App.Path & "\cfgCalendarThemeOffice2007.xml") Then
                frmMain.CalendarControl.Theme.DoPropExchange pPX
            End If
        End If
                       
    Else
        Unload frmTheme2007
       
        If mnuCustomIcons.Checked Then
            mnuCustomIcons_Click
        End If
        CalendarControl.SetTheme Nothing
    End If
   
    CalendarControl.Populate
   
End Sub
]]> Mon, 23 Oct 2006 11:58:19 +0000 http://forum.codejock.com/forum_posts.asp?TID=5344&PID=16742&title=invalid-procedure-call-office-2007-theme#16742