在VBA中使用ChemDrawControl16从绘制的Molecule中提取SMILES

Question

在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代码，并在单击控制按钮时将其粘贴到空单元格中。我该如何编码呢？

我的UserForm看起来像这样：UserForm2

Answer 1

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

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