在VBA中使用ChemDrawControl16从绘制的Molecule

时间:2018-01-04 15:10:32

标签: excel vba excel-vba

在Excel 2016中,我打开了VBA Windos(ALT + F11)。 Unter工具 - >参考文献我标记为“CS ChemDraw Control 16.0 Library”和“CS ChemDraw 16.0 Object Library”,然后单击“确定”。左 然后我创建了一个新的UserForm并出现了一个新的UserForm。我右键点击工具箱 - >附加控制并选择“CS ChemDraw Control 16.0”。

所以我创建了一个带有ChemDraw控制元素的UserForm,还有一个ControlButton。我启动了UserForm,我可以在ChemDraw控制元素上绘制一个结构。

我现在想知道的是:
我想提取结构的SMILES代码,并在单击Control按钮时将其粘贴到空单元格中。我该如何编写代码?

我的UserForm看起来像这样: UserForm2

1 个答案:

答案 0 :(得分:0)

Sheets("SMILES").Range("A1").Value = Me.ChemDrawCtl1.Data("chemical/x-smiles")

http://www.cambridgesoft.com/services/documentation/sdk/chemdraw/ActiveX11/ChemDrawControl10~ChemDrawCtl~Data.html