拖放+放大

411129362

enlarge.rar (78.16 KB, 下载次数: 149)

2016-4-12 13:34 上传

点击文件名下载附件
好久没上这个网站了。最近写了一个PPT，具有拖放和放大功能，希望大家会喜欢。

meidou.

做了一点修改。
Sub Enlarge(ByVal oShp As Shape)
  oShp.ZOrder msoBringToFront
  oShp.ZOrder msoBringForward
  With ActivePresentation.Slides(2)
    If Magnify(oShp.Name) Then
      Magnify(oShp.Name) = False
      oShp.Width = Ratio * oWidth(oShp.Name)
      oShp.Height = Ratio * oHeight(oShp.Name)
      oShp.TextFrame.TextRange.Font.Size = oFontSize(oShp.Name) * Ratio
    Else
      oShp.Width = oWidth(oShp.Name)
      oShp.Height = oHeight(oShp.Name)
      oShp.Left = oLeft(oShp.Name)
      oShp.Top = oTop(oShp.Name)
      oShp.TextFrame.TextRange.Font.Size = oFontSize(oShp.Name)
      Magnify(oShp.Name) = True
    End If
  End With
End Sub

user_objgywzp

不错，感谢楼主分享，学习了。