用VBA如何插入图示？

dongdonggege

Word2003插入图示，就是那个组织结构图？有几种形状：循环型，射线型，棱锥型，维恩型，目标型。
请问各位老师，用VBA如何插入图示？录制宏，什么都不显示啊。录制时，那个组织结构图也不显示。

dongdonggege

在Excel，PowerPoint里，好像网络也没有VBA的程序。

dongdonggege

讨厌的审核，好长时间都不显示我的求助。

dongdonggege

哪位老师教我，谢谢。

dongdonggege

这个能不能做出来？

lss001

dongdonggege 发表于 2024-10-1 09:40
哪位老师教我，谢谢。

'Word365组织结构图简单示例如下
'Word03可以参考一下

Sub Word365组织结构图()
   Dim app As Application
   Dim shp As Shape, stm As SmartArt
   
   Set app = Application
    With app.ActiveDocument
        Set shp = .Shapes.AddSmartArt( _
        app.SmartArtLayouts(1), _
        10, 10, 200, 100)
        Set stm = shp.SmartArt
        k = 1
        For Each Nd In stm.Nodes
            Nd.TextFrame2.TextRange.Text = k
            k = k + 1
        Next
   End With

    Set shp = Nothing
    Set stm = Nothing
    Set app = Nothing
End Sub

dongdonggege

lss001 发表于 2024-10-1 15:59
'Word365组织结构图简单示例如下
'Word03可以参考一下

感谢老师的帮助，使用2003和WPS,在For Each Nd In stm.Nodes，方法作用对象失败。

lss001

dongdonggege 发表于 2024-10-1 21:07
感谢老师的帮助，使用2003和WPS,在For Each Nd In stm.Nodes，方法作用对象失败。

如果能创建Shape对象
可以打开Vbe本地窗查看一下Shape属性
把楼上代码改一下

lss001

dongdonggege 发表于 2024-10-1 21:07
感谢老师的帮助，使用2003和WPS,在For Each Nd In stm.Nodes，方法作用对象失败。

如果是不能创建Shape对象
可以考虑使用AddDiagram创建Shape对象
Set shp = ThisDocument.Shapes.AddDiagram(1, 10,10, 200, 100)

dongdonggege

lss001 发表于 2024-10-1 22:36
如果是不能创建Shape对象
可以考虑使用AddDiagram创建Shape对象
Set shp = ThisDocument.Shapes.AddDia ...

Sub Word365组织结构图2()
    Dim shp As Shape, stm As SmartArt
   
    With ActiveDocument
        Set shp = .Shapes.AddSmartArt( _
        Application.SmartArtLayouts(83), _
        10, 10, 200, 100)
        Set stm = shp.SmartArt
        k = 1
        For Each Nd In stm.Nodes
            Nd.TextFrame2.TextRange.Text = k
            k = k + 1
        Next
   End With
End Sub
现在可以了，我还查到，'SmartArtLayouts(83)组织结果图，'SmartArtLayouts(99)基本棱锥图，'SmartArtLayouts(103)基本射线图，'SmartArtLayouts(118)基本目标图，'SmartArtLayouts(123)基本维恩图。