Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

word\Excel中插入图片 vba

时 间:2013-12-26 11:44:22
作 者:欢乐小爪   ID:20149  城市:杭州
摘 要:word\Excel中插入图片 vba
正 文:


'word中插入图片 调整大小

Sub InsertPictureAndAdj()
Dim FileName As String
Selection.TypeParagraph
FileName = "D:\My Documents\My Pictures\COAST-CORAL-TREEwe_2322560k.jpg"
Selection.InlineShapes.AddPicture FileName:=FileName, LinkToFile:=False, SaveWithDocument:=True
ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).Width = 50
ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).Height = 50
End Sub

--------------------------------------

'excel中插入图片 调整大小

On Error Resume Next
    ActiveSheet.Pictures.Insert(Application.ThisWorkbook.Path & "\图形文件\大样图\" + i + ".bmp").Select
    Selection.ShapeRange.IncrementLeft -60
    Selection.ShapeRange.IncrementTop 20
    Selection.ShapeRange.ScaleWidth 1#, msoFalse, msoScaleFromTopLeft



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助