比如:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Pictures.Insert "C:\test.jpg"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Pictures.Insert "C:\test.jpg"
End Sub
解决方案 »
- 有人用过NetFX20Wrapper吗?
- 如何批量处理一千个工作簿
- 怎样在VB中实现鼠标中键的全部功能
- Redraw属性有什么用处?请举例说明!!!!!谢谢!!!
- dll注册问题
- 在使用mscomm控件为rs232做通信时,只能收到小于8个字节,为什么?请指教
- 高手看过来: 如何将一个查询实例化出来,要求具有类似ACCESS里面的添加删除功能
- 中国移动通信互联网短消息网关接口协议(V1.2)讲座马上开通! wangfeng主讲~~~~~~~~
- 如何在vb里面发送一些http请求?
- 怎样用VB6.0打印出精美的报表。
- VB简单问题
- 谁用过VB7.net,是不是不同于VB6,用什么区别?现在还有学VB6的必要吗?
Me.Cells(3, 3).Select
Pictures.Insert "C:\test.jpg"
End Sub
比如:
mysheet.cills(3,3).select
mysheet.picture.insert "c:\test.jpg"