我有一个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. Excel VBA超链接()删除删除单元格格式
- 3. excel宏中的超链接
- 4. VBA超链接和形状创造
- 5. 超链接列= Excel宏
- 6. Excel VBA plus =超链接()
- 7. 删除Excel超链接屏幕提示
- 8. VBA删除特定形状
- 9. 如何将宏分配给VBA中的多组超链接excel
- 10. 宏到超链接
- 11. Excel VBA:将宏指定给commandbutton来创建超链接
- 12. 删除超链接下划线也会删除超链接
- 13. Excel:将宏指定给超链接?
- 14. 编辑超链接Excel 2010宏
- 15. Excel宏创建超链接 - 不工作
- 16. Excel的VBA - 引用该超链接
- 17. 重建超链接,或创建网络超链接VBA excel
- 18. VBA Excel宏 - 删除2个第一个单词后的文本
- 19. Excel的VBA宏连接
- 20. 广义形状分组宏宏VBA PowerPoint
- 21. 在excel vba中删除超过20列
- 22. 添加超链接与Excel VBA
- 23. EXCEL-VBA超链接转换查询
- 24. VBA - 创建,编辑和超链接形状
- 25. 删除超链接性能
- 26. 删除wpf超链接时
- 27. Excel的VBA宏删除基于列标题整个行
- 28. VBA在每一行添加超链接?
- 29. VBA删除所有形状错误
- 30. 如何在使用Excel VBA删除超链接时保留单元格格式?
发布您的代码。你到目前为止做了什么。 –