一次性複製線條格式的程式

yenwang

我現在要寫個VBA
可以讓使用者一次挑選多條線條，然後點選成程式後，選擇新的線條
則原本選擇的多條線條，就會變成後來選擇線條的顏色樣式等
目前程式如下
可以將一開始選擇的線條名稱記錄在動態的Array中
但不知道要如何讓程式在執行中
跳出訊息讓使用者選擇欲變更的線條
想請問版上大家是否知道怎麼處理
thank you!


Sub ex()
'===================================
Dim n As Integer
Dim i As Integer
Dim Dimarray()

n = Selection.ShapeRange.Count
ReDim DynArray(n + 1)
i = 0
For Each le In Selection.ShapeRange
i = i + 1
DynArray(i) = le.Name
Next

End Sub