如何使用VBA代码在超链接中显示所需的文本

Question

我在 E 列中显示了我的超链接，如下所示 \marooncgm imagesmech.pdf

但是我只想在单元格中显示如何修改代码mech.pdf。

我用于显示上述超链接的代码如下所示：

str = "\maroonCGM Images" & pn & ".pdf"
ActiveSheet.Hyperlinks.Add Range("e" & i), str

在这里，我只想展示pn和str。

Answer 1

您需要

指定TextToDisplay

ActiveSheet.Hyperlinks.Add Anchor:=Range("e" & i), Address:=Str, TextToDisplay:=pn & ".pdf"

有时，Excel VBA 参考确实有助于您自己了解函数和方法的工作原理：超链接。

Answer 2

如果你有

\栗色\CGM 图像\机甲.pdf

在一个单元格中，您只想获取带有".pdf"的 PDF 的名称，您可以执行下一个代码：

Dim spliter() as String
Dim str_pdf as String
str = marooncgm imagesmech.pdf ' Cells(a,b).value
spliter = Split(str, " ") 'To do the first split (You can delete ', " "' )
spliter = Split(spliter(1), "")
'Now spliter(1) == mech.pdf so...
str_pdf = spliter(1) ' spliter(0) == images , spliter(1) == mech.pdf