vba代码如何控制图片在ppt中的精确位置？

新诺司机-沃克灵 · 发表于 2019-2-12 22:37

vba代码如何控制图片在ppt中的精确位置？

主要是：

1.图形位置移动的代码如何编辑？

2.图形整体放缩的代码？

xuwenning · 发表于 2019-2-13 08:34

1.图形位置移动的代码如何编辑？下面是一个排列图片的代码你看看 Sub picture() Dim I As Integer For I = 1 To 12 Shapes(I).Visible = True '图片可见性 Shapes(I).Top = 200 '图片位置 Shapes(I).Left = 100'图片位置 Shapes(I).Width = 40'图片大小 Shapes(I).Height = 40'图片大小 Next End Sub

xuwenning · 发表于 2019-2-13 08:36

1.图形位置移动的代码如何编辑？
下面是一个排列图片的代码你看看
Sub picture()
Dim I As Integer
For I = 1 To 12
Shapes(I).Visible = True '图片可见性
Shapes(I).Top = 200 '图片位置
Shapes(I).Left = 100'图片位置
Shapes(I).Width = 40'图片大小
Shapes(I).Height = 40'图片大小
Next
End Sub

xuwenning · 发表于 2019-2-13 08:53

1.图形位置移动的代码如何编辑？
下面是一个排列图片的代码你看看
Sub picture()
Dim I As Integer
For I = 1 To 12
Shapes(I).Visible = True '图片可见性
Shapes(I).Top = 200 '图片位置
Shapes(I).Left = 100'图片位置
Shapes(I).Width = 40'图片大小
Shapes(I).Height = 40'图片大小
Next
End Sub

源理 · 发表于 2019-2-13 08:56

Sub test()
Dim shp As Shape
For Each shp In Application.Presentations(1).Slides(1).Shapes
shp.Top = 0
shp.Left = 0
shp.Height = 200
Next
End Sub

复制代码

上面代码为调整ppt的第一张幻灯片中的图片的位置和大小

新诺司机-沃克灵 · 发表于 2019-2-13 23:03

xuwenning 发表于 2019-2-13 08:53
1.图形位置移动的代码如何编辑？
下面是一个排列图片的代码你看看
Sub picture()

谢谢您！加您一下好友，继续向您请教^-^

新诺司机-沃克灵 · 发表于 2019-2-13 23:04

源理发表于 2019-2-13 08:56
上面代码为调整ppt的第一张幻灯片中的图片的位置和大小

谢谢您！加您一下好友吧^-^

新诺司机-沃克灵 · 发表于 2019-2-14 21:57

各位热心的朋友，还没完哈：

如何将Excel中单元格中文字粘贴到PPT的文本框中，

并设置字体格式，大小，居中

效果如下图：
效果呈现.png

新诺司机-沃克灵 · 发表于 2019-2-14 21:58

这是附件：

附件.zip (482.11 KB, 下载次数: 19)

新诺司机-沃克灵 · 发表于 2019-2-14 21:59

感谢大家啦

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

[求助] vba代码如何控制图片在ppt中的精确位置？

最新热点 /1