单元格中能否插入图片，视觉效果类似批注那样的

simic1989

就是鼠标悬停在这个单元格时，会显示图片，类似单元格中插入批注一样的效果。或者是单元格中插入某张照片，只有点击这个单元格才会显示。

keletang1984

在设置批注格式里，颜色与线条，填充颜色里选其他效果，可以把批注背景换成图片

simic1989

keletang1984 发表于 2018-3-7 15:26
在设置批注格式里，颜色与线条，填充颜色里选其他效果，可以把批注背景换成图片

请问是在这个地方吗?

keletang1984

simic1989 发表于 2018-3-7 15:32
请问是在这个地方吗?

不要进入批注编辑状态，选中批注的外框，右键设置批注格式

simic1989

keletang1984 发表于 2018-3-7 15:41
不要进入批注编辑状态，选中批注的外框，右键设置批注格式

谢谢你这个方法学会了，但是我是想点击某个单元格的时候可以看到这张图片，用批注背景的方法还要手动更改批注框的大小，不然图片太小看不清

zopey

单元格中插入某张照片，单击照片放大，单击放大照片则还原。
可以用宏实现

泸克

1. Option Explicit
   
2. 
   
3. Sub test()
   
4. Dim a As Shape
   
5. For Each a In ActiveSheet.Shapes
   
6. ' If a.AutoShapeType = -2 Then 改成 If a.AutoShapeType = 1 Then   '//2003和2007 的区别
   
7.     If a.AutoShapeType = 1 Then
   
8.         If a.OnAction = Empty Then a.OnAction = "test"
   
9.         If a.Name = ActiveSheet.Shapes(Application.Caller).Name Then
   
10.             If a.AlternativeText = Empty Then
    
11.                 a.AlternativeText = a.Height & Chr(28) & a.Width
    
12.                 a.Height = a.Height * 3
    
13.                 a.Width = a.Height * 3
    
14.                 a.ZOrder msoBringToFront
    
15.                 Exit Sub
    
16.             Else
    
17.                 a.Height = Split(a.AlternativeText, Chr(28))(0)
    
18.                 a.Width = Split(a.AlternativeText, Chr(28))(1)
    
19.                 a.AlternativeText = Empty
    
20.             End If
    
21.         End If
    
22.     End If
    
23. Next
    
24. End Sub
    

复制代码

之前学习别人的，新建模块，图片指定宏，就可以实现。

leezhao2000

664571221

泸克 发表于 2019-2-28 11:14
之前学习别人的，新建模块，图片指定宏，就可以实现。

你好这个怎么用啊