在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
答案 0 :(得分:0)
Sheets("SMILES").Range("A1").Value = Me.ChemDrawCtl1.Data("chemical/x-smiles")