紧急需要各位高手帮助， 图片缩放问题

zxj813111

紧急需要各位高手帮助，我想在Powerpoint2000里实现在同一张幻灯片里点击一张小图，图片变大，再点击回到原大小。在2003里很快可以实现，但是2000里怎么也搞不出来 ((
我只在网上找到一段宏代码，但不知道如何修改
Public intA
Public intB
Public intC
Public intD
Public intE
Public intF
Public intG
Sub a1()
Call sca(1, 1)
End Sub
Sub a2()
Call sca(1, 2)
End Sub
Sub a3()
Call sca(1, 3)
End Sub
Sub a4()
Call sca(1, 4)
End Sub
Sub a5()
Call sca(1, 5)
End Sub
Sub sca(intSL As Integer, intSH As Integer)
If IsEmpty(intA) Then
intA = ActivePresentation.Slides(intSL).Shapes(intSH).Top
intB = ActivePresentation.Slides(intSL).Shapes(intSH).Left
intC = ActivePresentation.Slides(intSL).Shapes(intSH).Height
intD = ActivePresentation.Slides(intSL).Shapes(intSH).Width

intE = ActivePresentation.Slides(intSL).Shapes(intSH).ZOrderPosition

ActivePresentation.Slides(intSL).Shapes(intSH).Top = 20
ActivePresentation.Slides(intSL).Shapes(intSH).Left = 200
ActivePresentation.Slides(intSL).Shapes(intSH).Height = 600
ActivePresentation.Slides(intSL).Shapes(intSH).Width = 450
ActivePresentation.Slides(intSL).Shapes(intSH).ZOrder msoBringToFront

intF = intSL
intG = intSH
Else
If Not (intF = intSL And intG = intSH) Then
Exit Sub
End If
intF = Empty

For i = 1 To ActivePresentation.Slides(intSL).Shapes.Count - intE
ActivePresentation.Slides(intSL).Shapes(intE).ZOrder fmtop
Next

ActivePresentation.Slides(intSL).Shapes(intSH).Top = intA
ActivePresentation.Slides(intSL).Shapes(intSH).Left = intB
ActivePresentation.Slides(intSL).Shapes(intSH).Height = intC
ActivePresentation.Slides(intSL).Shapes(intSH).Width = intD
intA = Empty
End If
End Sub
非常非常感谢任何建议和赐教！！！

53325346

还在使用2000，真的佩服啊！！！
我手上确实没有2000
不知道2000的配置如何
代码看着有点晕
你看看2000的能否插入Microsoft PowerPoint演示文稿
如果可以的话，
就不需要用代码了！！！
方法是(我指的是PPT2003的，你看看你的2000是否也有，有就照办，没有等高手)：
菜单栏：插入—对象—弹出对话框—下拉找到“Microsoft PowerPoint演示文稿”—确定
在出现的“Microsoft PowerPoint演示文稿”插入你的图片，点击空白处—然后选中幻灯片中的演示文稿，调整需要的位置，然后测试放映。
试试看吧！！！

user_pgrylxay

谢谢前辈这么快回复，我也对我们公司败了。。这么落后。我刚才试了，但是放大的图片无法在同一页显示。
我想只让一页幻灯片的一张图放大，再还原，其他部分不变，但也可以看到。
请高手在赐教

user_nghdq

不是很懂你的意思！
是不是同一个幻灯片上要有多张图片！！！
那你就按照上面的方法，
多插入几次演示文稿即可！！！
你的使用应该是点击一张图，改图全屏
再点击，退出全屏
回到原来状态
然后点击另一张图
另一张图全屏
再点击，回到原来状态！！！
当然采用这种嵌套PPT的方法会增大文件的大小
老机器会运行缓慢，所以你必须先进行调试才可以！！！
必须在你们单位的机子上运行可以了才算！！！
实例a.rar (1.12 MB, 下载次数: 268)

2016-4-11 11:16 上传

点击文件名下载附件

user_gdgdg

再谢谢论坛首富，哈哈！我的意思是在全屏状态下，我的一张幻灯片上有图1，图2，图3，讲解时，我只想将图1在点击时放大，但图2，图3仍可见。也就是说，点击图1时，不打开下一页幻灯片，而是在同一页，图1的原图基础上放大。

user_pslvj

如果老想用老软件做新效果，那软件公司的干什么吃啊？能最快实现效果才是正理，除非你想做软件开发。