设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛»论坛首页 › Excel 讨论区 › Excel图/表/分析 › 批量插入图片并调整大小

1 ... 4 5 6 7 8 91011 12 / 12 页下一页

发新帖

楼主: roych

上一主题

下一主题

批量插入图片并调整大小

91^#

发表于 2015-10-23 21:35:26 | 只看该作者

下载下来玩玩

回复支持反对

使用道具举报

三毛流浪记

92^#

发表于 2015-10-25 14:10:46 | 只看该作者

666

回复

使用道具举报

93^#

发表于 2015-12-25 15:50:17 | 只看该作者

下载学习下

回复支持反对

使用道具举报

94^#

发表于 2015-12-27 13:11:44 | 只看该作者

这是我一直在找的，感谢大神

回复支持反对

使用道具举报

95^#

发表于 2016-3-1 00:53:00 | 只看该作者

刚才正好帮人写了一个

Private Sub tsheet4()
Dim MyPcName As String
Dim RG As Range, SP As Shape, i%
For i = 2 To 5
Set RG = Cells(i, 3)
MyPcName = ActiveSheet.Cells(i, 1).Value & ".jpg"
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\111" & MyPcName)
With .ShapeRange
.LockAspectRatio = msoFalse
.Width = RG.Width
.Height = RG.Height
End With
.Placement = xlMoveAndSize
.Top = RG.Top
.Left = RG.Left
End With
Next i
End Sub

复制代码

点评

不错不错。值得鼓励发表于 2016-3-29 09:27

回复支持反对

使用道具举报

96^#

发表于 2016-4-5 23:59:11 | 只看该作者

感谢！分享

回复

使用道具举报

97^#

发表于 2016-4-7 16:17:38 | 只看该作者

我来看看

回复

使用道具举报

98^#

发表于 2016-4-9 21:27:02 | 只看该作者

kan yi kan

回复

使用道具举报

99^#

发表于 2016-5-11 20:10:19 | 只看该作者

看看

回复

使用道具举报

100^#

发表于 2017-1-6 20:44:37 | 只看该作者

图纸插入，调整大小，清晰度等，都是糜麻烦事啊。

回复支持反对

使用道具举报

1 ... 4 5 6 7 8 91011 12 / 12 页下一页

发新帖

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2024-4-28 20:33 , Processed in 0.092379 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表