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

157787698

两个问题：
9 v8 E0 I+ p* X" j0 @1、VBA如何在图纸中直接插入光栅图像？
9 B9 v7 o5 E/ c# J4 Z& t3 m     我现在的方法是曲线救国，因为我要插入到每一幅图中的内容是固定的，即公司LOGO，所以我先将图片插入到图纸中并保存，然后每次需要使用的时候，使用Attchexternalreference方法插入事先做好的dwg格式图纸
0 Q$ G4 q2 z8 n% G
' X( X; _# z! `( M2、VBA如何将插入图纸中的光栅图像边框去掉？
. r; @' s2 l' B) i* `: m" o1 P     这个问题目前没有找到解决办法，只能手动通过菜单修改：修改-对象-图像-边框-0；或者通过或Imagehlt命令修改

, ?+ _# K$ v% L2 b
请高手指点，先谢谢了

woaishuijia

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

ModelSpace 集合, PaperSpace 集合和 Block 对象的 AddRaster 方法

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

3 H; n2 e  U. _4 V2 o' T( v0 _$ J是否显示或打印光栅图像的边框取决于 IMAGEFRAME 系统变量的值
: B' |4 Q1 r  S" {' _) {设置系统变量使用 Document 对象的 SetVariable 方法

157787698

; b! `4 M4 Q9 V5 T- k3 {2 X4 ^
IMAGEFRAME 系统变量好像只出现在2010中，06/08中都没有
& y& l7 O$ k& _  y5 ^
4 S1 t7 ?& V$ c, N) W4 X& t在06/08中IMAGEFRAME是命令

( k' K$ h9 A5 E" t还有没办法解决？

157787698

ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
7 A# v, H8 s2 P0 w9 I/ f$ G实现了