Excel中使用墨迹控件的富文本框

时间:2016-07-05 12:05:12

标签: vba excel-vba excel

我正在尝试使用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并将其粘贴回形状。

如果我可以让他们工作,我正在处理剩下的工作。

谢谢

0 个答案:

没有答案