msoFileDialogOpen , msoFileDialogFolderPicker

ning84

1. 
   
2. '''
   
3. Sub SelectFolderMapToRng()
   
4.    Dim Rng As Range, Kk
   
5.        Set Rng = Selection
   
6.    Dim Fso As FileSystemObject, oFile As File
   
7.        Set Fso = New FileSystemObject
   
8.    Dim oFolder As Folder
   
9.    Dim Ff As FileDialog
   
10.    Set Ff = Application.FileDialog(msoFileDialogFolderPicker)
    
11.    With Ff
    
12.       .Title = ""
    
13.       .AllowMultiSelect = True
    
14.       .InitialFileName = "F:"
    
15.       .Show
    
16.       Set oFolder = Fso.GetFolder(.SelectedItems(1))
    
17.       
    
18.    End With
    
19.    Kk = 1
    
20.    For Each oFile In oFolder.Files
    
21.         Rng(Kk, 1) = oFile.Name
    
22.         Rng(Kk, 2) = oFile.Path
    
23.         Kk = Kk + 1
    
24.    Next oFile
    
25.    
    
26.    
    
27. End Sub
    

复制代码

1. 
   
2. Sub SelectMapFileToRng()
   
3.    Dim Rng As Range, Kk
   
4.        Set Rng = Selection
   
5.    Dim Fso As FileSystemObject
   
6.        Set Fso = New FileSystemObject
   
7.    Dim oFolder As Folder
   
8.    Dim oFile As File, oFiles As Files
   
9.    Dim Ff As FileDialog
   
10.    Set Ff = Application.FileDialog(msoFileDialogOpen)
    
11.    
    
12.    With Ff
    
13.       .Title = ""
    
14.       .AllowMultiSelect = True
    
15.       '.InitialFileName = "F:\JPGMP4Office\Other\2024年\2024年08月\2024年08月18日"
    
16.       .Show
    
17.       Stop
    
18.       'Set oFiles = Fso.GetFolder(.SelectedItems(1))
    
19.       For ii = 1 To .SelectedItems.Count
    
20.           Set oFile = Fso.GetFile(.SelectedItems(ii))
    
21.           Debug.Print oFile.Name, oFile.Path
    
22.           Debug.Print Rng(ii, 1).Address
    
23.           Rng(ii, 1) = oFile.Path
    
24.       Next ii
    
25.       
    
26.    End With
    
27. 
    
28.    
    
29.    
    
30. End Sub
    
31. 
    

复制代码

ning84

1. Sub ll()
   
2.    Dim ShpRng As ShapeRange
   
3.        Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
   
4.        With ShpRng
   
5.            Debug.Print .AutoShapeType
   
6.        End With
   
7. End Sub

复制代码

ning84

TextEffectFormat.Alignment 属性

返回或设置指定艺术字的对齐方式。可读/写 MsoTextEffectAlignment 类型。语法

表达式.Alignment

表达式   一个代表 TextEffectFormat 对象的变量。
说明

MsoTextEffectAlignment 可以是下列 MsoTextEffectAlignment 常量之一。

msoTextEffectAlignmentCentered

msoTextEffectAlignmentLeft

msoTextEffectAlignmentMixed

msoTextEffectAlignmentRight

msoTextEffectAlignmentStretchJustify

msoTextEffectAlignmentWordJustify

msoTextEffectAlignmentLetterJustify

示例
本示例在当前演示文稿的第一张幻灯片中添加艺术字对象并将它右对齐。

Visual Basic for Applications

Set mySh = Application.ActivePresentation.Slides(1).ShapesSet myTE = mySh.AddTextEffect(PresetTextEffect:=msoTextEffect1, _    Text:="Test Text", FontName:="Palatino", FontSize:=54, _    FontBold:=True, FontItalic:=False, Left:=100, Top:=50)myTE.TextEffect.Alignment = msoTextEffectAlignmentRight

TextFrame.Orientation 属性

返回或设置文本方向。可读/写 MsoTextOrientation 类型。语法

表达式.Orientation

表达式   一个代表 TextFrame 对象的变量。
返回值
MsoTextOrientation
说明

由于所选择或安装的语言支持（例如美国英语）不同，有些常量可能不可用。

MsoTextOrientation 可以是下列 MsoTextOrientation 常量之一。

msoTextOrientationDownward

msoTextOrientationHorizontal

msoTextOrientationHorizontalRotatedFarEast

msoTextOrientationMixed

msoTextOrientationUpward

msoTextOrientationVertical

msoTextOrientationVerticalFarEast

示例

以下示例会在 myDocument 上将第三个形状中的文本设为水平方向。

Visual Basic for Applications

Set myDocument = ActivePresentation.Slides(1)myDocument.Shapes(3).TextFrame _    .Orientation = msoTextOrientationHorizontal

1. Sub ll()
   
2.    Dim ShpRng As ShapeRange
   
3.        Set ShpRng = Application.ActiveWindow.Selection.ShapeRange
   
4.        Dim Shps As Shapes
   
5.            Set Shps = ShpRng.Parent.Shapes
   
6. 
   
7.            
   
8.        With ShpRng
   
9.            .AutoShapeType = msoShapeLeftArrowCallout
   
10.            .Fill.BackColor.RGB = RGB(125, 255, 255)
    
11.            .Fill.ForeColor.SchemeColor = ppForeground
    
12.            .TextFrame.Orientation = msoTextOrientationVertical
    
13.            Debug.Print .AutoShapeType,
    
14.            Debug.Print .Rotation, .ShapeStyle, .TextEffect.Alignment
    
15.            
    
16.        End With
    
17. End Sub
    

复制代码

ning84

1. Function msoShapeArr(Shp As Shape)
   
2.    Dim Arr(0 To 138)
   
3.           Arr(0) = Array(msoShape16pointStar, "msoShape16pointStar", "十六角星")
   
4.           Arr(1) = Array(msoShape24pointStar, "msoShape24pointStar", "二十四角星")
   
5.           Arr(2) = Array(msoShape32pointStar, "msoShape32pointStar", "三十二角星")
   
6.           Arr(3) = Array(msoShape4pointStar, "msoShape4pointStar", "四角星")
   
7.           Arr(4) = Array(msoShape5pointStar, "msoShape5pointStar", "五角星")
   
8.           Arr(5) = Array(msoShape8pointStar, "msoShape8pointStar", "八角星")
   
9.           Arr(6) = Array(msoShapeActionButtonBackorPrevious, "msoShapeActionButtonBackorPrevious", "“后退”或“上一个”按钮支持鼠标单击和鼠标移过操作")
   
10.           Arr(7) = Array(msoShapeActionButtonBeginning, "msoShapeActionButtonBeginning", "“开始”按钮支持鼠标单击和鼠标移过操作")
    
11.           Arr(8) = Array(msoShapeActionButtonCustom, "msoShapeActionButtonCustom", "不带默认图片或文本的按钮支持鼠标单击和鼠标移过操作")
    
12.           Arr(9) = Array(msoShapeActionButtonDocument, "msoShapeActionButtonDocument", "“文档”按钮支持鼠标单击和鼠标移过操作")
    
13.           Arr(10) = Array(msoShapeActionButtonEnd, "msoShapeActionButtonEnd", "“结束”按钮支持鼠标单击和鼠标移过操作")
    
14.           Arr(11) = Array(msoShapeActionButtonForwardorNext, "msoShapeActionButtonForwardorNext", "“前进”或“下一个”按钮支持鼠标单击和鼠标移过操作")
    
15.           Arr(12) = Array(msoShapeActionButtonHelp, "msoShapeActionButtonHelp", "帮助按钮支持鼠标单击和鼠标移过操作")
    
16. 
    
17. End Function
    
18. 
    
19. 
    
20. 
    
21. Sub ll()
    
22.     Dim Pres As Presentation
    
23.         
    
24.     Dim Sld As Slide, Slds As Slides
    
25.         Set Slds = Application.ActivePresentation.Slides
    
26.     Dim Shp As Shape, Shps As Shapes
    
27.         Set Sld = Slds(4)
    
28.         Set Shps = Sld.Shapes
    
29.         For Each Shp In Shps
    
30.              If Shp.Type = msoTextBox Then
    
31.                  msoShapeArr Shp
    
32.                  With Shp
    
33.                       Debug.Print .AutoShapeType, .TextFrame.Orientation, .Name, .Left, .Top, .Width, .Top
    
34.                      
    
35.                  End With
    
36.              End If
    
37.         Next Shp
    
38. End Sub
    

复制代码