VBA编程技巧之玩转组织结构图（暂2003版）

lee1892 · 发表于 2012-12-11 21:12

本帖最后由 lee1892 于 2012-12-12 10:35 编辑

先贴个附件，有时间再讲讲这个费劲的东西，微软可真是脑残啊~~

测试环境：XP Pro, Office 2003

有07版以上的，帮测试一下~~~
=====================
Edited Below on 121212

查了一下MSDN，只能说微软太脑残。。。
2007版，增加了SmartArt的概念，但Excel里居然没有这个对象，而原本的Diagram对象则被隐藏了，可能的办法是直接编写XML文件加进来。不知道其Word内是否也这样。
2010版以上，终于有SmartArt对象了，估计应该会方便很多了。

综上，这个附件的代码只适合2002、2003

lee1892 · 发表于 2012-12-11 21:13

自己占个楼层~~~~~

hbdyyx · 发表于 2012-12-11 21:22

路过学习！！！！！！

liuxh04 · 发表于 2012-12-11 21:23

07版，运行错误， "400"

fankairong · 发表于 2012-12-11 21:27

2010版

EH2003 · 发表于 2012-12-11 21:43

2013没有通过。

lee1892 · 发表于 2012-12-11 21:52

本帖最后由 lee1892 于 2012-12-11 21:55 编辑

楼上的同学们，我只有03～
你们只告诉我错了，不告诉我哪句错了，我是没法改滴～
能F8一下不～～
顺便告诉我一下MsgBox Application.Version的内容？～～

spark571 · 发表于 2012-12-12 10:00

出错位置： Set shpOrg = colShps.AddDiagram(msoDiagramOrgChart, 0, 0, OC_SHAPE_WIDTH, OC_SHAPE_HEIGHT)

DataBus · 发表于 2012-12-12 10:27

应该是对象在不同版本之间存在差异的问题。

pengli758 · 发表于 2013-9-26 20:04

关注，希望能弄个2007版的出来学习学习

		自动登录	找回密码
密码			免费注册

[原创] VBA编程技巧之玩转组织结构图（暂2003版）

评分

[原创] VBA编程技巧 之 玩转组织结构图（暂2003版）

评分

[原创] VBA编程技巧之玩转组织结构图（暂2003版）