411129362 发表于 2016-4-12 13:34:52

拖放+放大



好久没上这个网站了。最近写了一个PPT，具有拖放和放大功能，希望大家会喜欢。

meidou. 发表于 2016-4-12 14:48:07

做了一点修改。
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 发表于 2016-4-12 14:55:54

不错，感谢楼主分享，学习了。
页: [1]
查看完整版本: 拖放+放大