我正在尝试使用inkedit控件创建一个vba用户表单,这将允许用户输入富文本数据。我一直在谷歌搜索,但无法找到任何正确的vba代码。是否有我可以参考的网站或文档
非常感谢任何帮助
我已设法在某种程度上使用inkedit控件创建富文本框。在下面发布以供参考
但非常感谢任何进一步的帮助
首先将InkInsertMode和InkMode设置为0,因此它将表现为普通文本框。 我为粗体,斜体,下划线,颜色,项目符号和缩进添加了几个cmd按钮。
将字体设置为粗体,下划线或斜体很容易,可以通过代码将 .SelBold,.SelItalics或SelUnderline 设置为true或false来完成。
同样对于颜色,我们可以使用SelColor属性。
棘手的部分是项目符号和缩进,我通过编辑所选文本的rtf输出来缩进。
Inkedit有2个输出,。Text和TextRtf,它返回带有rtf标签的文本。
我们必须编辑rtf代码以实现项目符号和缩进。
将.SelRTF存储在变量中。如果选择的文本,这将给出rtf代码。任何具有缩进的行都将具有字符串 \ li360 \ sl240 \ slmult1 ,li360是缩进部分,以增加继续向其添加360,并减去减少。更换li360并将其贴回墨水。
Inkedit.SelRTF = NewTxt
我正在处理剩下的工作。
现在如何在Excel工作表中显示它?
Trick是我们必须传递rtf输出。
我在工作表上放置了一个文本框。 以rtf格式打开剪贴板。复制.TextRTF并将其粘贴回形状。
如果我可以让他们工作,我正在处理剩下的工作。
谢谢