作者：绿色风
分类：
时间：2022-08-18
浏览：159
楼主
xmyjk |
Q:如何运用VBA使显示的图片随着单元格的数值的变动而变动?
例如：当A1数值变化，B1里的图片跟着变化，A1数值和B1要显示的图片都在“图片”里
A:- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim NM As String, r As Range, pic, D
- Application.ScreenUpdating = False
- If Target.Count = 1 And Target.Address(0, 0) = "A1" Then
-
- For Each pic In ActiveSheet.Shapes
- pic.Delete
- Next
- Set D = CreateObject("scripting.dictionary")
- For Each pic In Worksheets("图片").Shapes
- Set r = Worksheets("图片").Cells((pic.TopLeftCell.Row + pic.BottomRightCell.Row) / 2, (pic.TopLeftCell.Column + pic.BottomRightCell.Column) / 2).Offset(0, -1)
- pic.Name = r.MergeArea(1, 1).Value
- D(pic.Name) = ""
- Next
- NM = Target.Value
- If D.exists(NM) Then
- Worksheets("图片").Select
- ActiveSheet.Shapes.Range(NM).Select
- Selection.Copy
- Sheets("效果展示").Select
- Range("B1:B9").Select
- ActiveSheet.Pictures.Paste.Select
- Else
- MsgBox "图片不存在！"
- End If
- Set D = Nothing
- Set r = Nothing
- End If
- Application.ScreenUpdating = True
- End Sub
 图片引用例.rar
|
2楼
daiyong1212 |
不知道能不能用公式代替VBA？ |
3楼
JOYARK1958 |
謝謝提供學習下載中 |
4楼
anmeldung |
有一个小问题：
如果每次我只希望把上一次复制过来的图片删除，然后再复制张新的图片进来，如何写VBA？
因为我的表格里面还有其他的图片，按钮，如果使用了
- For Each pic In ActiveSheet.Shapes
- pic.Delete
- Next
这句语句，那么活动表格内的所有图片都会被删除了。
求帮助**谢谢。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一