导出图片

菜鸟　发表于：2021-04-11 12:47:05 　

http://accessoft.com/article-show.asp?id=5300

各位老师，刘大师，这个导出，只能导出图片的路径到excel中，如何改以下代码。让路径改变或图片删除，不影响导出的excel中的图片，

我百度了一下，可以用addpicture 代替picture 插入，但不是不知怎么改以下代码！望指教一下！

If Dir(strPic) <> "" Then
.ActiveSheet.Pictures.Insert(strPic).Select
'调整图片位置
.Selection.ShapeRange.IncrementLeft 2
.Selection.ShapeRange.IncrementTop 2
'调整图片大小
.Selection.ShapeRange.Width = 112
.Selection.ShapeRange.Height = 85
End If

Top

菜鸟发表于：2021-04-11 14:29:57

https://docs.microsoft.com/zh-tw/office/vba/api/excel.shapes.addpicture

根据这个可以用以下代码导出图片：

objApp.ActiveSheet.Shapes.AddPicture(strPicName, True, True, 200, 200, 70, 70).Select

但不知如何循环到指定的栏位及自动缩放图片大小

Top

金宇发表于：2021-04-22 14:27:37

If Dir(strPic) <> "" Then
objSheet.Range("单元格").Select
'先剪切再粘贴
With objApp
.ActiveSheet.Pictures.Insert(strPic).Cut
.ActiveSheet.Pictures.Paste.Select

.Selection.ShapeRange.IncrementLeft 2
.Selection.ShapeRange.IncrementTop 10
.Selection.ShapeRange.LockAspectRatio = 0
.Selection.ShapeRange.Width = 90
.Selection.ShapeRange.Height = 100
.Selection.Placement = 1 '
End With
End If

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

[5分]导出图片