我有一個excel電子表格,每列有一個形狀,隨着時間的推移將更多形狀添加到列中。問題是,一些形狀有超鏈接,而其他形狀沒有。我想編寫一個vba宏來遍歷列中的每個形狀,並刪除當前形狀的超鏈接(如果有)。我試圖錄制一個宏,我手動刪除一個形狀的超鏈接,然後在全局應用這個動作。但是,工作表上有其他形狀的超鏈接,因此我的宏只能應用於此特定列。有任何想法嗎?Excel VBA宏刪除每個形狀的超鏈接
-1
A
回答
0
本示例從列A中的形狀中刪除超鏈接,根據需要調整列。
Sub DeleteHyperlink()
Dim shp As Shape
Dim r As Range
Set r = Columns("A:A")
For Each shp In ActiveSheet.Shapes
If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), r) Is Nothing Then
On Error Resume Next
If shp.Hyperlink.Address <> "" Then shp.Hyperlink.Delete
End If
Next shp
End Sub
+0
完美的作品。非常感謝! –
0
嘗試使用以下過程一次刪除所有超鏈接。
Sub DeleteHyperLinks()
Sheet1.Hyperlinks.Delete
End Sub
相關問題
- 1. VBA宏 - 超鏈接
- 2. VBA超鏈接和形狀創造
- 3. 超鏈接列= Excel宏
- 4. VBA刪除特定形狀
- 5. 如何將宏分配給VBA中的多組超鏈接excel
- 6. 刪除超鏈接下劃線也會刪除超鏈接
- 7. Excel:將宏指定給超鏈接?
- 8. Excel的VBA - 引用該超鏈接
- 9. VBA Excel宏 - 刪除2個第一個單詞後的文本
- 10. 廣義形狀分組宏宏VBA PowerPoint
- 11. Excel的VBA宏刪除基於列標題整個行
- 12. VBA刪除所有形狀錯誤
- 13. 如何使用c#添加超鏈接到excel形狀?
- 14. Excel超鏈接
- 15. VBA宏的Excel
- 16. Excel VBA - 爲什麼這個宏全部刪除
- 17. Excel vba Underscore。刪除_
- 18. VBA宏快速刪除行
- 19. Excel的VBA在細胞呈現一個超鏈接
- 20. Excel VBA鏈接兩個用戶選擇的單元格與超鏈接
- 21. Kineticjs刪除多個形狀
- 22. 插入超鏈接,並刪除超級鏈接在Javascript
- 23. Excel的VBA宏複製特定的行並刪除它
- 24. 刪除GI中的超鏈接
- 25. Excel合併刪除宏
- 26. Visual Basic Excel - 宏刪除行
- 27. Excel宏循環刪除
- 28. Excel VBA Unfiltering宏
- 29. Excel VBA宏xlDays
- 30. VBA-Excel宏
發佈您的代碼。你到目前爲止做了什麼。 –