ActiveWindow.Selection.ShapeRange

ning84

1. Function TxtEffect(ShpRng As ShapeRange, Ww, Hh, Ll, Tt)
   
2.       With ShpRng.TextFrame2
   
3.            
   
4.            With .TextRange.Font
   
5.                .Bold = msoCTrue
   
6.                .Name = "黑体"
   
7.            End With
   
8.            
   
9.            .AutoSize = msoAutoSizeShapeToFitText
   
10.            .WordWrap = msoCTrue
    
11.       End With
    
12.       '
    
13.       With ShpRng
    
14.            .Fill.ForeColor.RGB = RGB(175, 238, 238)
    
15.            .TextEffect.PresetShape = msoTextEffectShapeCanUp
    
16.            '.BackgroundStyle = msoBackgroundStylePreset1
    
17.            .TextEffect.Alignment = msoTextEffectAlignmentCentered
    
18.            
    
19.            .Width = Ww
    
20.            .Height = Hh
    
21.            .Left = Ll
    
22.            .Top = Tt
    
23.            .Shadow.Style = msoShadowStyleOuterShadow
    
24.            .ShapeStyle = msoLineStylePreset20
    
25.       End With
    
26. 
    
27. End Function
    

复制代码

Sub Ll()
  Dim Shp As Shape, ShpRng As ShapeRange
      Set Pres = Application.ActivePresentation
      Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
      Debug.Print ShpRng.Name, ShpRng.Count
      TxtEffect ShpRng, 310, 70, 405, 5
End Sub


MsoPresetTextEffectShape
MsoShapeStyleIndex