Vba Excel中使用inkedit控件的富文本框

我正在尝试创建一个带有inkedit控件的vba用户窗体，该控件将允许用户输入富文本数据。我一直在谷歌搜索，但找不到任何合适的vba代码。是否有我可以参考的网站或文档

• 子弹
• 增加/减少缩进

非常感谢您的帮助

我在某种程度上使用inkedit控件创建了富文本框。将其发布到下面以供参考

但我们非常感谢任何进一步的帮助

首先将InkInsertMode和InkMode设置为0，这样它就可以像普通文本框一样工作。 我为粗体、斜体、下划线、颜色、项目符号和缩进添加了几个cmd按钮

将字体设置为粗体、下划线或斜体很容易，可以通过代码将.SelBold、.seltalics或selbunderline设置为true或false来完成

对于颜色，我们也可以使用SelColor属性

棘手的部分是项目符号和缩进，我通过编辑所选文本的rtf输出完成了缩进

Inkedit有两个输出，.Text和TextRtf，它们返回带有rtf标记的文本

我们必须编辑rtf代码以实现项目符号和缩进

将.SelRTF存储在变量中。如果所选文本不正确，将给出rtf代码。任何具有缩进的行都将具有字符串\li360\sl240\slmult1，li360是缩进部分，要增加，请继续向其添加360，要减少，请减去。替换li360并将其发回inkedit

Inkedit.SelRTF=newText

其余的我都在做

现在如何在Excel工作表中显示

诀窍是我们必须传递rtf输出

我在工作表上放置了一个文本框。 以rtf格式打开剪贴板。复制.TextRTF并将其粘贴回形状中

如果我能让他们工作的话，其余的我都在工作

---

谢谢你

你能详细说明你想做什么吗？您需要文本识别功能还是只使用inkEdit，因为您想启用富格文本？您好，我只想启用富格文本框，用户可以在其中格式化文本，如写字板。您还需要其他功能吗？因为这是一个普通的Excel 2010文本框。我希望文本框在用户表单中，而不是在Excel工作表中。我认为这是不可能做到的（可能是通过inkedit，但我对此非常不熟悉）。其他人有这个问题，但没有答案。MSDN没有给出任何可用的示例。我投了更高的票，所以其他人可以看到它并提供帮助，但如果我是你，我会开始寻找其他解决方案。