[已解决]图片大小不能自动调整大小?

JBB9629 · 发表于 2013-5-2 11:38

本帖最后由 JBB9629 于 2013-5-14 01:28 编辑

在2003中可以运行通过但在2010中图片大小不能自动调整大小位置也移位?
请问要如何修改才能在2010中运行?
谢谢

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$9" Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
With Sheet4
   .Pictures(1).Delete
   .Range("I9").Select
   .Pictures.Insert ThisWorkbook.Path & "\Photos\" & Range("C9") & ".PNG"
   .Pictures(1).Height = Range("I9").MergeArea.Height
   .Pictures(1).Width = Range("I9").MergeArea.Width
End With

Call UpdatingData
Application.EnableEvents = True

End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2013-5-13 10:15

JBB9629 发表于 2013-5-13 01:42
不好意思
又来向版主求救啦...
之前那图片的问题解决了

book1b.rar (357.21 KB, 下载次数: 146)

hwc2ycy · 发表于 2013-5-2 11:53

传附件吧。

JBB9629 · 发表于 2013-5-4 17:46

对不起忘了传附件
这是在在2003中可以运行通过的附件

JBB9629 · 发表于 2013-5-6 12:00

对不起忘了传附件
这是在在2003中可以运行通过的附件

爱疯 · 发表于 2013-5-7 14:49

JBB9629 发表于 2013-5-6 12:00
对不起忘了传附件
这是在在2003中可以运行通过的附件

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$8" Then
Me.Pictures.Delete
With Range("E8").MergeArea
Me.Shapes.AddPicture Filename:=ThisWorkbook.Path & "\Photos" & Range("C8") & ".PNG", _
LinkToFile:=True, SaveWithDocument:=True, _
Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height
End With
End If
End Sub

复制代码

JBB9629 · 发表于 2013-5-7 18:02

可以了

非常感谢版主
谢谢您~

JBB9629 · 发表于 2013-5-13 01:42

本帖最后由 JBB9629 于 2013-5-13 01:46 编辑

不好意思

又来向版主求救啦...
之前那图片的问题解决了
可又出现新的问题啦...
运行"清空录入表"出错

book1.rar (372.35 KB, 下载次数: 18)

爱疯 · 发表于 2013-5-13 10:15

JBB9629 发表于 2013-5-13 01:42
不好意思
又来向版主求救啦...
之前那图片的问题解决了

book1b.rar (357.21 KB, 下载次数: 146)

JBB9629 · 发表于 2013-5-14 01:27

再次感谢版主
问题解决了
不过在(复制贴上)文字时
会跳出代码...
但可以运行

friendlynations · 发表于 2013-12-27 09:36

研究一下，谢谢

		自动登录	找回密码
密码			注册