如何获取ppt中自选图形各顶点坐标

woxoo · 发表于 2024-5-3 23:41

Enocheasty 发表于 2024-5-3 10:21
因该难以避免这个问题。不行就原位复制一个，改了属性读了坐标再删掉。

我目前就是这样干的，复制粘贴成SVG（连接符都可以转换），转换为形状，获得坐标后删掉

woxoo · 发表于 2024-5-4 07:34

Enocheasty 发表于 2024-5-3 10:21
因该难以避免这个问题。不行就原位复制一个，改了属性读了坐标再删掉。

在一款PPT插件(英豪插件)里可求两图形的交点，觉得他是先找到图形各点的坐标

Enocheasty · 发表于 2024-5-4 13:31

woxoo 发表于 2024-5-4 07:34
在一款PPT插件(英豪插件)里可求两图形的交点，觉得他是先找到图形各点的坐标

你没有他的源代码你也不知道他怎么求的，搞不好就是跟你一样的，原位复制，取得坐标，删除，再计算交点。也不是什么难事。使用者并看不出来他做过这一列操作。只要能达到目标就好了！

woxoo · 发表于 2024-5-5 08:54

Enocheasty 发表于 2024-5-4 13:31
你没有他的源代码你也不知道他怎么求的，搞不好就是跟你一样的，原位复制，取得坐标，删除，再计算交点。 ...

估计不是，我这种方法运行后撤销时可以看到复制的两条线，他的没有

lss001 · 发表于 2024-5-23 09:53

shenjianrong163 发表于 2024-5-1 13:43
请问下在WPS中不能用吗？

'在office ppt中用VBA获取形状顶点坐标
Sub pptvba获取形状顶点坐标()
Set ppt = ActivePresentation
Set sld = ppt.Slides(1)
Set shp = sld.Shapes(1)
shp.Nodes.SetEditingType 1, 1
arr = shp.Vertices
End Sub

dongdonggege · 发表于 2024-10-9 14:17

lss001 发表于 2024-5-23 09:53
'在office ppt中用VBA获取形状顶点坐标
Sub pptvba获取形状顶点坐标()
Set ppt = ActivePresentati ...

画的多边形sld.Shapes.BuildFreeform，程序才能运行，如果是自选图形sld.Shapes.AddShape.，程序有错误。这个怎么办？

lss001 · 发表于 2024-10-9 22:44

dongdonggege 发表于 2024-10-9 14:17
画的多边形sld.Shapes.BuildFreeform，程序才能运行，如果是自选图形sld.Shapes.AddShape.，程序有错误。 ...

Sub ppt获取形状顶点坐标() 'ppt365通过
Set ppt = ActivePresentation
Set sld = ppt.Slides(1)
Set shp = sld.Shapes.AddShape( _
125, 100, 100, 200, 200)
shp.Nodes.SetEditingType 1, 1
arr = shp.Vertices
End Sub

Enocheasty · 发表于 2024-10-14 16:47

Enocheasty 发表于 2024-5-4 13:31
你没有他的源代码你也不知道他怎么求的，搞不好就是跟你一样的，原位复制，取得坐标，删除，再计算交点。 ...

我最近研究怎么样切分贝塞尔曲线，忽然想到这个问题。我也打算做点关于曲线的东西，也是想要坐标的。所以我想到了，可以弥补你说的，就是通过复制一个对象取得坐标再删除，会让撤销操作重现复制的对象的问题。
那就是我们可以通过导出，将图形导出为SVG文件，然后读取文件分析坐标，再把文件删掉就好了。这样应该不会存在复制操作，也就不会有撤销的问题了。

Enocheasty · 发表于 2024-10-15 15:32

Enocheasty 发表于 2024-10-14 16:47
我最近研究怎么样切分贝塞尔曲线，忽然想到这个问题。我也打算做点关于曲线的东西，也是想要坐标的。所以 ...

更正一下，这样做得到的Svg的坐标值并不准确，有2个问题：
1、位置偏移，Svg的坐标是将PPT图形以左上角为原点重新生成的坐标，不是直接对应PPT中的位置，需要转换，好的是，Svg中已经有Translate属性了，表明了偏移量。
2、尺寸到像素的转换，因为Svg显示是以像素为基础的，PPT中的图形以Pt为单位，因为还需要通过设备的DPI进行一次转换。例如，在PPT中绘制一个2.54x2.54厘米的圆形，其直径应该是72磅也就是1英寸，但是转换成Svg直径为96像素，应为DPI为96，也就是96个像素刚好1英寸，大小就对应上了。还需要对坐标进行进一步缩放处理。

ning84 · 发表于 2024-11-17 17:21

shenjianrong163 发表于 2024-5-1 13:43
请问下在WPS中不能用吗？

Sub l()
Dim Shp As Shape, Shps As Shapes
Set Shps = Application.ActivePresentation.Slides(2).Shapes
SelectNots Shps(1)
Stop
Set Shps = Application.ActivePresentation.Slides(1).Shapes
Debug.Print Shps.Count
For Each Shp In Shps
Debug.Print Shp.Name, Shp.Type
Select Case Shp.Type
Case 5
Shp.Select msoCTrue
SelectNots Shp
Stop
End Select
Next Shp
Stop
End Sub
Function SelectNots(Shp As Shape)
Dim Arr
With Shp
Debug.Print .Name, .Type
For ii = 1 To .Nodes.Count
'Debug.Print .Nodes(ii).EditingType
Arr = .Nodes(ii).Points
Stop
Next
End With
End Function

复制代码

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

[求助] 如何获取ppt中自选图形各顶点坐标