没找到EMBED帮助文件,只能手动获取属性。

ning84

embed函数怎么使用  https://baijiahao.baidu.com/s?id ... r=spider&for=pc


EXCEL得EMBED函数用法语法： { EMBED ClassName [Switches] } 插入支持 OLE 的其他应用程序所创建的对象。使用“插入”菜单中的“对象”命令、“编辑”菜单中的“选择性粘贴”命令或工具栏 （工具栏：包含可用于执行命令的按钮和选项的栏，要显示工具栏，请按 Alt 然后按 Shift+F10。）按钮插入对象（如 Microsoft Excel 工作表对象）时，Microsoft Word 将插入 EMBED 域。


=EMBED("Forms.Image.1","")



=EMBED("Forms.ComboBox.1","")



没找到属性

1. Sub ll()
   
2.    Dim Sht As Worksheet
   
3.        Set Sht = Sheet1
   
4.    Dim Shp As Shape
   
5.        For Each Shp In Sht.Shapes
   
6.            With Shp
   
7.                  Debug.Print .Name, .AutoShapeType, .Type,
   
8.                  Debug.Print .Parent.Name
   
9.            End With
   
10.        Next Shp
    
11. End Sub

复制代码

运行结果


Button 2      -2             8            Sheet1
Image1        -2             12           Sheet1sh


目标之一，寻找shape.type帮助文件。

ning84

继续学习

1. Sub ll1()
   
2.    
   
3.     Dim Sht As Worksheet
   
4.         Set Sht = Sheet1
   
5.         Debug.Print Sht.Name, ActiveSheet.Name
   
6.         Sht.Activate
   
7.         
   
8.         ActiveSheet.Image1.Picture = LoadPicture("F:\SpecialSubject\GongbeiCommunity\YingbinCommunity\IMG_20231120_082639688.jpg")
   
9.         Stop
   
10.         Stop
    
11. 'ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\123.jpg")
    
12. ActiveSheet.Image1.Picture = LoadPicture("F:\SpecialSubject\GongbeiCommunity\YingbinCommunity\IMG_20231120_082639688.jpg")
    
13. Stop
    
14. Stop
    
15. 
    
16.     Dim Shp As Shape, Shps As Shapes
    
17.         Set Shps = Sht.Shapes
    
18.         Set Shp = Shps("Image1")
    
19.         Debug.Print Shp.Name, Shp.Type
    
20.         Image1.Picture = LoadPicture(ThisWorkbook.Path & "\123.jpg")
    
21.         Image1.Picture = LoadPicture("F:\A.jpg")
    
22. End Sub

复制代码

ActiveSheet.Image.Picture成立， Sht.Image1.Picture不成立。
ActiveSheet.Image1.Picture = LoadPicture("F:\SpecialSubject\GongbeiCommunity\YingbinCommunity\IMG_20231120_082639688.jpg")