Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

EXCEL ORGANIZATION CHART ADD-IN

Status
Not open for further replies.

babsannjoy

Programmer
Apr 17, 2013
12
US
I have installed the Organization Chart add-in into EXCEL 2010.
Using EXCEL 2010 VBA code I want to add an organization chart then add nodes. I also want to populate the nodes using text from an imported .CSV file located on another worksheet.
Here is what I have so far:

sub org_chart
ActiveSheet.OLEObjects.Add(ClassType:="OrgPlusWOPX.4", Link:=False, _
DisplayAsIcon:=False).Activate

Windows(1).WindowState = xlMaximized

Windows(1).Activate

'--trying to execute the F2 key via VBA - not working

Application.SendKeys ("f2")

end sub


The Organization chart add-in object window appears and when I manually press F2 twice (shortcut key) it adds a node to the org chart. I want to do this programmatically. Would like to use other shortcut keys to add different types of nodes and use the EDIT TEXT shortcut keys to add text to the boxes. Any suggestions ??? If the solution is to use a SMARTART organization chart object I am open to that solution as well.

 
tried to attach a pic of the source data from Excel but I am not sure it worked.
 
A pic is virtually useless, as it requires those who desire to assist to read and enter data manually, which I will not do!

Furthermore your pic link to your desktop will not work.

Just copy n paste.

Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
So that's the latest, but is it what you need?

Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Yup.. I am good. Do you still want me to post my dummy source data that I have been using? and if so whats the best way to do this.
Thanks for all you help.
 
No need if we don't need to do more testing.

Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top