標題: 一次性複製線條格式的程式 [打印本頁]

---

作者: yenwang    時間: 2015-7-2 13:14     標題: 一次性複製線條格式的程式

我現在要寫個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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)