這個坐標軸是插入的圖片嗎
-
-
可以使用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）點 之后在此基礎上在繪制其他的點、線、面即可