在打印头,VBA MS Project中显示来自userform的图片/图像

时间:2018-02-14 21:37:57

标签: vba ms-office ms-project

我正在制作一个模板,并考虑将logo.jpg存储在用户表单中。然后,我将调用此用户表单并在每个"宏激活"的打印标题中插入徽标。打印。

到目前为止,我已设法仅将图像打印为数字。位和字节可能(?)。在打印之前,我可能会错过一些图片转换:

FilePageSetupHeader Alignment:=pjLeft, Text:="&P" & UserForm1.Image1.Picture & " "

在左上方的标题中打印为:1-670746914

我错过了什么?


我在MSDN上找到的语法为插入图片提供了以下参数:

    &; P""""
    插入指定的图像。一个例子是&; P"" [我的文件] \ Image.gif""。术语[我的文档]表示“我的文档”文件夹的完整路径。

在导出为PDF并再次删除视图之前,我的代码会复制当前视图,更改视图设置,标题等。

2 个答案:

答案 0 :(得分:1)

UserForm1.Image1.Picture是图片 对象 ,而不是原始源文件的路径。将图片加载到图像控件后,它将被嵌入并且不会存储其原始路径。

存储图片的路径,以便稍后可以引用它(例如,使用Image控件的Tag属性)。有关详细信息,请参阅Stack Overflow: VBA UserForm Get Filename。 (仅供参考:Excel和Project使用相同的UserForm对象,因此这是适用的。)

答案 1 :(得分:1)

我放弃了在Project文件中保存徽标。

相反,我会检查"C:\CompanyLogo"内是否存在徽标,如果没有,请创建该版权并从imgur下载。