怎样使用vba代码在当前页面添加文本框，并以话框方式插入一个图片

寅鹞

我使用了以下代码来自动为当前页面添加一个透明、无边框的矩形方框，并以对话框的方式来插入一个铺面方框的图片。可是下面的代码还是有几个地方不能实现我的要求：1、插入的图片不在矩形内而是在页面上，因为删除矩形后，该图片还在页面上。

2、不知道设置矩形边框无无边框的代码是什么

1. Sub 插入矩形方框()
   
2.   With ActiveDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 2970, 2100)
   
3.     .Fill.Transparency = 1 '设置形状为无填充，即透明
   
4.   End With
   
5.   Dialogs(wdDialogInsertPicture).Show ’打开插入图片对话框选择插入的图片 然而插入的图片并非位于矩形形状内
   
6. End Sub
   

复制代码

寅鹞

在excel下可以通过录制宏来了解代码。

1. Sub 插入矩形方框()
   
2.   Dim myDialog As FileDialog, strFileName As String
   
3.   On Error Resume Next
   
4.   Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
   
5.   With myDialog
   
6.     .Filters.Clear
   
7.     .Filters.Add "图片文件", "*.bmp;*.gif; *.jpg; *.jpeg;*.png;*.tiff", 1
   
8.     .AllowMultiSelect = False
   
9.     If .Show = -1 Then
   
10.       strFileName = .SelectedItems.Item(1)   
    
11.     End If
    
12.   End With
    
13. 
    
14.   With ActiveDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 596, 842)
    
15.     .Line.Visible = msoFalse
    
16.     .Fill.Transparency = 1
    
17.     .Fill.UserPicture strFileName
    
18.     .Fill.TextureTile = msoFalse
    
19.     .Fill.RotateWithObject = msoTrue
    
20.   End With
    
21. End Sub
    

复制代码