- 帖子
- 56
- 主題
- 35
- 精華
- 0
- 積分
- 92
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2013
- 閱讀權限
- 20
- 註冊時間
- 2014-9-10
- 最後登錄
- 2024-4-11
|
一次性複製線條格式的程式
我現在要寫個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 |
|
發表於 2015-7-2 13:14
| 
