☰

从基本“文本框”复制文本并将其粘贴到单元格中

tag-icon • tag-icon microsoft-excel macros vba
从基本“文本框”复制文本并将其粘贴到单元格中

我正在尝试访问“文本框 1”内的文本，将其复制然后粘贴到以 开头的范围内A37。

更新：所讨论的文本框是使用“插入选项卡”>“文本框”按钮插入的简单文本框。

下面是我正在尝试的一堆乱七八糟的东西。我似乎找不到获取文本并复制它的方法。有什么想法吗？

Sub textbox()

    Dim txBox As Shape
    Set txBox = ActiveSheet.Shapes("Text Box 1")
    'shpTextBox.selStart = 0
    'shpTextBox.SelLength = Len(shpTextBox.Text)

    txBox.Select
    txBox.TextFrame.Characters.Text
    Range("A37").Value = shpTextBox.Value    

End Sub

答案1

当我尝试时，这是有效的：

Dim txBox As Shape
Set txBox = ActiveSheet.Shapes("Text Box 1")

Range("A37").Value = txBox.TextFrame.Characters.Text

相关内容