Codejock Developer Community : Using the docking pane activex with Excel http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 28 Apr 2026 23:48:19 +0000 Fri, 13 Apr 2007 10:55:08 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=6857 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Using the docking pane activex with Excel : Dear All, regarding my previous...]]> http://forum.codejock.com/forum_posts.asp?TID=6857&PID=21921&title=using-the-docking-pane-activex-with-excel#21921 Author: Armin
Subject: 6857
Posted: 13 April 2007 at 10:55am

Dear All,
 
regarding my previous request, please let me specify what I want to achieve:
 
You may get an idea of what I mean by looking at this: http://www.ablebits.com/excel-worksheets-manager-addins/index.php
 
This add-in is provided by a russian company. It was programmed using Delphi and works with Excel 2000 onwards. Unfortunately they do not provide this technique to others.
 
I therefore tried to find a solution on my own and thought that the Docking Pane component would be a good starting point.
 
In the Excel VBE I made a reference to the Xtreme Docking Pane Control (->Tools -> References ...) and typed in the following code into a standard module:
 
Option Explicit
'
' Retrieve a handle to the top-level window (Parent is always the Desktop)
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
                         ByVal lpClassName As String, _
                         ByVal lpWindowName As String) As Long
'
' Retrieve a handle to the top-level window in other parents
Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" ( _
                         ByVal hWndParent As Long, _
                         ByVal hwndChildAfter As Long, _
                         ByVal lpClassName As String, _
                         ByVal lpWindowName As String) As Long

Sub xlDockPane()
    Dim xlAppHandle As Long
    Dim xlDeskHandle As Long
    Dim DockingPaneManager As XtremeDockingPane.DockingPane
    Dim A As XtremeDockingPane.Pane
       
    xlAppHandle = FindWindow("XLMAIN", Application.Caption)
   
    If xlAppHandle = 0 Then
        xlAppHandle = FindWindow("XLMAIN", vbNullString)
    End If
       
    ' find the Excel desktop
    xlDeskHandle = FindWindowEx(xlAppHandle, 0, "XLDESK", vbNullString)
   
    Set DockingPaneManager = New DockingPane
   
    DockingPaneManager.AttachToWindow xlDeskHandle
   
    Set A = DockingPaneManager.CreatePane(1, 400, 400, DockLeftOf, Nothing)
End Sub

Also syntactically correct, the code above doesn't work.
 
Thus, any hints  are very welcome.
 
BRGDS
Armin
]]> Fri, 13 Apr 2007 10:55:08 +0000 http://forum.codejock.com/forum_posts.asp?TID=6857&PID=21921&title=using-the-docking-pane-activex-with-excel#21921 <![CDATA[Using the docking pane activex with Excel : Dear All, has anybody...]]> http://forum.codejock.com/forum_posts.asp?TID=6857&PID=21909&title=using-the-docking-pane-activex-with-excel#21909 Author: Armin
Subject: 6857
Posted: 13 April 2007 at 6:11am

Dear All,
 
has anybody ever tried to link the Docking Pane ActiveX as a docked window into the Excel desktop by using VBA?
 
I am using the trial version of Xtreme SuitePro and don't have much experience yet with these tools.
 
Any hint of how to achieve it is highly appreciated.
 
Thanks in advance
Armin
 
]]> Fri, 13 Apr 2007 06:11:21 +0000 http://forum.codejock.com/forum_posts.asp?TID=6857&PID=21909&title=using-the-docking-pane-activex-with-excel#21909