循環選定形狀

我需要遍歷工作表上選定的形狀。我需要它看起來像這樣：循環選定形狀

Dim VmyApp As Excel.Application = Globals.ThisAddIn.Application 
    Dim VmySel As Excel.ShapeRange = TryCast(VmyApp.Selection, Excel.ShapeRange) 

    For Each VmyShape In VmySel 
    ... 
    Next

非常感謝你提前..

來源

2017-06-20 user7381321

要循環雖然只有選定的形狀，您可以使用下面的循環

For Each VmyShape In Selection.ShapeRange 
... 
Next

和如果你想循環所有形狀，那麼下面的循環

For Each VmyShape In ActiveSheet.Shapes 
... 
Next

來源

2017-06-20 07:32:09 Karpak

thnx的答案我試圖這樣做，我其實它就像在Excel VBA中，但是當我嘗試在VS2015中鍵入選擇時，我無法在智能感知列表中找到它 – user7381321

如果相應的模塊不存在，則可能無法正常工作。但是這對你有用嗎？ – Karpak

不幸的是它沒有，我可能錯過了聲明或錯過了一個引用「導入」 – user7381321

循環選定形狀

回答

相關問題