VBA:如何插入光栅图像并隐藏边框？

157787698

两个问题：
1、VBA如何在图纸中直接插入光栅图像？
6 y; o: s% A% f; o$ _5 U     我现在的方法是曲线救国，因为我要插入到每一幅图中的内容是固定的，即公司LOGO，所以我先将图片插入到图纸中并保存，然后每次需要使用的时候，使用Attchexternalreference方法插入事先做好的dwg格式图纸

! N# z+ z4 `# k2、VBA如何将插入图纸中的光栅图像边框去掉？
/ C4 d; E1 ^' A9 H     这个问题目前没有找到解决办法，只能手动通过菜单修改：修改-对象-图像-边框-0；或者通过或Imagehlt命令修改
6 ~4 O5 a8 M$ j
' E; c; @: X) a
7 O; u; i+ x! E9 B( U+ ]请高手指点，先谢谢了

woaishuijia

1、VBA如何在图纸中直接插入光栅图像？

ModelSpace 集合, PaperSpace 集合和 Block 对象的 AddRaster 方法
5 g( o. [  Z0 a% j7 G, w9 e3 D5 _

2、VBA如何将插入图纸中的光栅图像边框去掉？

是否显示或打印光栅图像的边框取决于 IMAGEFRAME 系统变量的值
% N1 B( A) g6 k, X3 X4 w- l' G$ I设置系统变量使用 Document 对象的 SetVariable 方法

157787698

1 p$ W( o7 o0 M" m6 ?
IMAGEFRAME 系统变量好像只出现在2010中，06/08中都没有
5 O  S6 G  r: @9 w* C. i( \% q* ~
' [, z! x5 o# r% Y在06/08中IMAGEFRAME是命令

0 r/ n# S  [4 ]6 r还有没办法解决？

157787698

ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
* r6 K8 ^0 E/ o% d实现了