这个坐标轴是插入的图片吗
-
-
可以使用VBA内,chartObjects对象内的属性
.left 图标距左边缘距离
.top 图标距1列距离
.width 宽度
.height 高度
给你个简单的示例
dim chartobject1 as chartobject,chart1 as chart
dim i as integer, s1 as string
i = 1
for each chartobject1 in activesheet.chartobjects
set chart1 = chartobject1.chart
chart1.left = XXX +XXX
chart1.top = XXX + XXX
chart1.width = XXX
chart1.height = XXX
next
写的很随意, 大致意思如上.使用VBA for each 遍历所有图表逐渐调整尺寸.
里面属性都是磅值.编写时注意.
如果图表已排好序,就不用调整left和top的 -
鼠标点击的位置可以作为你自己绘制图纸的（0，0）点 之后在此基础上在绘制其他的点、线、面即可
也可将cad中的坐标作为原有的的（0，0）点 之后在此基础上在绘制其他的点、线、面即可