word中插入图片显示图片名称修改图片大小的宏.docVIP

word中插入图片显示图片名称修改图片大小的宏 word中插入图片显示图片名称修改图片大小的宏 PAGE word中插入图片显示图片名称修改图片大小的宏 插入图片的同时显示图片名称 SubInsertPic() DimmyfileAsFileDialog Setmyfile=(msoFileDialogFilePicker) Withmyfile .InitialFileName=F:\ =-1Then Setmypic=(FileName:=fn,SaveWithDocument:=True) 按比例调整相片尺寸 WidthNum= c=10在此处修改相片宽,单位厘米 =c* =(c*WidthNum)* =-1Then如光标在文末 在文末添加一空段 Else EndIf =Basename(fn)函数取得文件名 =-1Then如光标在文末 在文末添加一空段 Else EndIf Nextfn Else EndIf EndWith Setmyfile=Nothing EndSub FunctionBasename(FullPath)取得文件名 Dimx,y Dimtmpstring tmpstring=FullPath x=Len(FullPath) Fory=xTo1Step-1 IfMid(FullPath,y,1)=\Or_ Mid(FullPath,y,1)=:Or_ M