uj5u.com熱心網友回復：
這不就是一次簡單的計算嗎，有何難度？uj5u.com熱心網友回復：
樓主參考一下：' Excel VBA代碼：
Option Explicit
Sub Main()
Dim cw#, ch#, dR As Double
dR = 0.65 ' 比例系數
With Sheet1.Shapes(1) ' 取“A線條”物件
cw = .Width
ch = .Height
End With
With Sheet1.Shapes(2) ' 取“B線條”物件
.Width = dR * cw
.Height = dR * ch
End With
End Sub
只要“B線條”的起點在最初“畫物件”時，跟“A線條”的起點是重合的就行了。
uj5u.com熱心網友回復：
連長度都不用計算。假定 Xa0 = Xbo, Ya0 = Ybo：
Xb1 = (Xa1 - Xa0) * 0.5
Yb1 = (Ya1 - Ya0) * 0.5
uj5u.com熱心網友回復：
直線段的引數化方程這是小學數學幾年級的知識點來著？
uj5u.com熱心網友回復：
我KAO！，你真牛Ｂ啊，小學就學會了“方程、平面幾何”的東西了…………
再說了，這是操作Excel作業簿中的“物件”，光有那個“知識點”根本解決不了問題。
uj5u.com熱心網友回復：
https://www.baidu.com/s?wd=直線段的引數化方程%20這是小學數學幾年級的知識點來著%3F原來是中學學的啊！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/63923.html
標籤：VBA