有苦工么，招苦工了

banduwuyan 发表于: 2010-4-16 01:54 来源: 扑奔PPT网

ppt的配色方案不少，我现在想将一个网站的配色方案加入到一个ppt中，VBA编程已完成，人太懒，不想一个人辛苦鼠标的复制粘贴操作，现在还没有休息，不累么，呵呵

大家看看结果

有苦工么，招苦工了

大家对有苦工么，招苦工了的评论

banduwuyan 发表于 2010-4-18 03:13:28: 杯具，招工取消

现将主模块贴出
Sub 批量将表格转化成文本框组合()
'定义一个代表所选择对象集的某个对象的变量osh 使用该变量进行对象传递
'由于后续的可能的选择集的处理，导致原有选择集的实效，须将原选择集合保存下来

'原选择集采用标签的方式保存
Dim osh As Shape
Dim sld As Slide
Dim copyedShp As Shape

'记录当前的slide
Set sld = ActiveWindow.Selection.ShapeRange(1).Parent

'处理选择集添加标签
With ActiveWindow.Selection
   For i = 1 To .ShapeRange.Count
      '添加一个标签标记之
      .ShapeRange(i).Tags.Add "Sel", "Y"
      .ShapeRange(i).Visible = msoFalse
   Next
End With

For Each osh In sld.Shapes
      '对含有"Sel"标签的osh进行处理
      If Len(osh.Tags("Sel")) = 0 Then
         '不含有标签的 do nothing
      Else
      '在此处添加处理对象的操作
      '
      osh.Visible = msoTrue
      osh.Tags.Delete ("Sel")
      Call 规格化(osh, 60, 30)
      Call 表格转化成文本框组合(osh)
      'osh.ActionSettings(ppMouseOver).Run = "ChangeBorderLineColor"

      '
      '对象处理操作完毕

      End If
Next osh
End Sub