精选优质文档-倾情为你奉上插入图片的同时显示图片名称SubInsertPic()DimmyfileAsFileDialogSetmyfile=Application.FileDialog(msoFileDialogFilePicker)Withmyfile.InitialFileName=F:If.Show=-1ThenForEachfnIn.SelectedItemsSetmypic=(FileName:=fn,SaveWithDocument:=True)按比例调整相片尺寸WidthNum=mypic.Widthc=10在此处修改相片宽,单位厘米mypic.Width=c*28.35mypic.Height=(c*28.35/WidthNum)*mypic.HeightIfSelection.Start=-1Then如光标在文末Selection.TypeParagraph在文末添加一空段ElseSelection.MoveDownEndIfSelection.Text=Basen
