求助:不同幻灯片中的“Excel 工作表对象”的位置格式能否统一?
来源:百度知道 编辑:UC知道 时间:2024/06/22 20:18:34
希望图片的格式和位置都能保持一定
做宏发现“Object##”(对象##)##有很多是重复的,故不可行
不知有没有便捷的方法。谢谢!
(因为比较复杂,故悬赏200分。望高人相助)
有能提供代码的,愿将200分变为现金酬谢!
Sub AutoChange()
Dim Emily, i, j, n
n = ActivePresentation.Slides.Count
For i = 1 To n Step 1
Emily = ActivePresentation.Slides(i).Shapes.Count
For j = 1 To Emily Step 1
ActivePresentation.Slides(i).Shapes(j).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Height = 453.38
.Width = 340#
.Left = 17#
.Top = 48.12
End With
Next j
Next i
End Sub
但不行。。。所选的shape的view必须是active的。但VBA根本不能像Excel选择不同sheet那样记录选择的slide。如之奈何。。。
做宏发现“Object##”(对象##)##有很多是重复的,故不可行
不知有没有便捷的方法。谢谢!
(因为比较复杂,故悬赏200分。望高人相助)
有能提供代码的,愿将200分变为现金酬谢!
Sub AutoChange()
Dim Emily, i, j, n
n = ActivePresentation.Slides.Count
For i = 1 To n Step 1
Emily = ActivePresentation.Slides(i).Shapes.Count
For j = 1 To Emily Step 1
ActivePresentation.Slides(i).Shapes(j).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Height = 453.38
.Width = 340#
.Left = 17#
.Top = 48.12
End With
Next j
Next i
End Sub
但不行。。。所选的shape的view必须是active的。但VBA根本不能像Excel选择不同sheet那样记录选择的slide。如之奈何。。。
获得对象列表,剩的自己处理吧
n = ActivePresentation.Slides.Count
mb = ActivePresentation.TemplateName '模板类型
btext = "模板:" + mb + vbCrLf + vbCrLf
For i = 1 To n
tt01 = ActivePresentation.Slides(i).Shapes.Count
'第I张幻灯片对象数目
tt02 = ActivePresentation.Slides(i).Layout
btext = btext + "第 " + Str(i) + " 张幻灯片对象数目: " + Str(tt01) + vbCrLf
btext = btext + "幻灯版式: " + Str(tt02) + vbCrLf
For j = 1 To tt01
btext = btext + "对象名称 " + ActivePresentation.Slides(i).Shapes(j).Name + vbCrLf
Next
btext = btext + vbCrLf
Next
MsgBox btext
好像已经发消息给你了,为什么还没有给俺分啊,虽然俺不是很在乎。
双击格式刷一个个刷下吧,应该也很快的
没有办法了…软件也是有极限的…
没的吧