图片引用问题

84474376 · 发表于 2023-5-22 12:21

要求：根据Sheet1工作表的数据源，应用到Sheet2单元格B2，随着B2的变化得到C6相对应的图案。

liujuntao · 发表于 2023-5-22 14:06

工作簿.zip (17.73 KB, 下载次数: 8)

84474376 · 发表于 2023-5-22 17:35

这是啥意思，看不到我要的图片啊。

安若浅笑 · 发表于 2023-5-22 22:40

84474376 发表于 2023-5-22 17:35
这是啥意思，看不到我要的图片啊。

Excel里目前还没有内置的功能来引用图片，WPS表格里可以先将图片设置成嵌入单元格，然后就可以想普通数据一样使用公式引用图片了

meiya · 发表于 2023-5-23 08:32

本帖最后由 meiya 于 2023-5-23 08:38 编辑

定义一个公司公章的名称管理器，然后链接图片。供你参考

84474376 · 发表于 2023-5-23 09:57

本帖最后由 84474376 于 2023-5-23 09:59 编辑

谢谢，可以用了。
但是有个问题，为啥我在点到公章图标时候，不能在编辑栏输入文字，是灰色的。而你做的点在图案上看到编辑栏显示=公章。

meiya · 发表于 2023-5-23 10:52

84474376 发表于 2023-5-23 09:57
谢谢，可以用了。
但是有个问题，为啥我在点到公章图标时候，不能在编辑栏输入文字，是灰色的。而你做的点 ...

其实公章就是一个动态的名称管理器，根据公司名称从表1中找到对应的公章

84474376 · 发表于 2023-5-23 11:24

meiya 发表于 2023-5-23 10:52
其实公章就是一个动态的名称管理器，根据公司名称从表1中找到对应的公章

不会弄动态的名称管理器，能否说说具体怎么操作。

niko88819 · 发表于 2023-5-24 09:30

Sub niko()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim rngSourceLookup As Range
Dim rngSourceImage As Range
Dim rngTarget As Range
Dim lookupValue As Variant
Dim matchCell As Range
Dim shp As Shape
Set wsSource = ThisWorkbook.Worksheets("Sheet1")
Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
Set rngSourceLookup = wsSource.Range("A2:A7")
Set rngSourceImage = wsSource.Range("E2:E7")
lookupValue = wsTarget.Range("B2").Value
Set matchCell = rngSourceLookup.Find(lookupValue, LookIn:=xlValues, LookAt:=xlWhole)
If Not matchCell Is Nothing Then
Set rngTarget = wsTarget.Range("C6")
For Each shp In wsTarget.Shapes
If Not Intersect(shp.TopLeftCell, rngTarget) Is Nothing Then
shp.Delete
Exit For
End If
Next shp
rngSourceImage.Cells(matchCell.Row - rngSourceLookup.Row + 1).CopyPicture Appearance:=xlScreen, Format:=xlPicture
rngTarget.PasteSpecial
Application.CutCopyMode = False
End If
End Sub

复制代码

liuxi001 · 发表于 2023-5-27 18:51

改写代码啦

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

[求助] 图片引用问题