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

157787698

两个问题：
) U% ?7 j' `, B$ \' k( ]$ n1、VBA如何在图纸中直接插入光栅图像？
6 f% m6 q: p# p* u5 I5 `     我现在的方法是曲线救国，因为我要插入到每一幅图中的内容是固定的，即公司LOGO，所以我先将图片插入到图纸中并保存，然后每次需要使用的时候，使用Attchexternalreference方法插入事先做好的dwg格式图纸

5 [; Q" J4 O1 X& y1 O2、VBA如何将插入图纸中的光栅图像边框去掉？
, v8 I* I2 D+ u& j% G     这个问题目前没有找到解决办法，只能手动通过菜单修改：修改-对象-图像-边框-0；或者通过或Imagehlt命令修改
% B/ q2 |! o* R) J2 q" ^. z
- z2 M. z6 G. s
请高手指点，先谢谢了

woaishuijia

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

( p4 Z) H% l6 R( X: Z) w$ TModelSpace 集合, PaperSpace 集合和 Block 对象的 AddRaster 方法
* n  `* h2 b  ^# J% p6 M+ a

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

, E* J4 P7 y0 i0 p, Z2 @是否显示或打印光栅图像的边框取决于 IMAGEFRAME 系统变量的值
设置系统变量使用 Document 对象的 SetVariable 方法

157787698

2 Q& P; S, T0 u! A
# M' Z' x+ f: ]: a& }" pIMAGEFRAME 系统变量好像只出现在2010中，06/08中都没有

/ Y# v8 N0 X5 U- S% |# N$ g9 W8 N在06/08中IMAGEFRAME是命令
% E  [" T. _* J. c( O4 Z" l
7 I: N0 [7 T  Y; s) P还有没办法解决？

157787698

ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
实现了