网站首页 | 本站动态 | 资源共享 | 美文妙乐 | 教学教案 | 双语新闻 | 论文相关 | 辅助教学 | 教学软件 | 广东高考 |
内容提要:因为需要,找了两个VBA代码。
另一个 Sub InsertPic() Dim myfile As FileDialog Set myfile = Application.FileDialog(msoFileDialogFilePicker) With myfile .InitialFileName = "F:" If .Show = -1 Then For Each fn In .SelectedItems Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True) '按比例调整相片尺寸 WidthNum = mypic.Width c = 10 '在此处修改相片宽,单位厘米 mypic.Width = c * 28.35 mypic.Height = (c * 28.35 / WidthNum) * mypic.Height If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末 Selection.TypeParagraph '在文末添加一空段 Else Selection.MoveDown End If Selection.Text = Basename(fn) '函数取得文件名 Selection.EndKey If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末 Selection.TypeParagraph '在文末添加一空段 Else Selection.MoveDown End If Next fn Else End If End With Set myfile = Nothing End Sub Function Basename(FullPath) '取得文件名 Dim x, y Dim tmpstring tmpstring = FullPath x = Len(FullPath) For y = x To 1 Step -1 If Mid(FullPath, y, 1) = "" Or _ Mid(FullPath, y, 1) = ":" Or _ Mid(FullPath, y, 1) = "/" Then tmpstring = Mid(FullPath, y + 1) Exit For End If Next Basename = Left(tmpstring, Len(tmpstring) - 4) End Function
第1页 第2页
扫描二维码手机查看
|
相关文章 |
·安卓手机因软件安装失败解决方法06-19
·word排版技巧整理08-02
·Word批量删除自选图形的办法!07-16
·删除 word 中所有的中文字符03-17
·办公室局域网打印机共享轻松设置09-22
|
·解决Win8 IE浏览器某些网站显示不全01-30
·十秒免工具激活windows 1002-25
·Word查找的通配符和特殊字符!04-14
·微课制作注意事项06-02
·windows 2008 R2各版本激活180天05-03
|
最新更新 |
阅读排行 |
·Win10系统开机启动文件夹在哪里?04-16
·十秒免工具激活windows 1002-25
·批量替换word文档中的第一行作为文件的文件06-21
·自动对一个文件夹下的N个word文件批量执行一06-21
·Win10电脑开机启动慢?教你只需三步,电脑开06-11
·连接打印机时需要输入用户名密码怎么办?05-15
·免魔法使用 New Bing 新方案03-18
·Win10电脑账号密码设置、修改、取消12-06
·[亲测有效]excel批量修改文件名10-29
|
·如何让试题的ABCD选项对齐04-13
·word排版技巧整理08-02
·word 如何自动生成目录08-02
·不同电脑文件字体改变了的解决方法12-15
·Excel 进行学生成绩统计分析03-13
·我的电脑图标不见了,怎么找回来!09-14
·Win10电脑的一些安装提示12-03
·Word高级替换技巧03-05
·Excel如何批量插入分页符02-12
·制作Word2003选择性粘贴快捷键07-09
|
快速导航 |
关于我们 |
联系我们 |
【高中英语教学交流网】 | 【yykzzsj】 |
微信公众号 | 站长微信 | |||
版权所有 2008-2024 高中英语教学交流网
|