我想在报表中动态显示.pdf文件,比如图片,应该如下所示:
我已经试过用网页浏览器了,但是当我把报告打印出来的时候,它不会出现在预览中.
我还尝试了一个ole未绑定对象,但也没有成功,这里是我在Report_Load事件中拥有的代码:
Dim vPath As String
vPath = GetNewestDocument(Me!artNr)
'Returns path for pdf file, about:blank if there is no file.
If vPath = "about:blank" Then
Me!PDFBro
我有excel项目,包括图片。我有一个有ImageBox的用户表单。此窗体使用选择更改事件根据行号动态显示图片。
单元格选择更改时触发此事件。但我想通过单击shape来触发此事件。有什么解决方案吗?
请看图片。
这些是单元格选择更改事件的代码。
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes