材料 発明者 suのコンボボックス

[reb_bl]

こんにちは、vbaでは、私は(結果なしで今のために)、すべてのグループ化し、時間を節約し、クリックするフォームに入れたコンボボックスから選択する部分の材料をしようとしています。

素材はカスタムブックケースですが、問題は間違いありません。

パブリックサブコンボマット_change()

'材料コレクションへの参照を設定します。
材料を材料として薄暗くして下さい
omaterials = odoc.materials を設定する

材料として薄暗いomaterial

' 選択した項目を取得する
dim omaterialname を文字列として
omaterialname = コンボマット.listitem(combomat.listindex)

' アクティブな部分の文書への参照を設定します
dim odoc として partdocument
odoc = thisapplication.activedocument を設定する

dim opartcompdef として partcomponentdefinition
opartcompdef = odoc.componentdefinition を設定する

' 選択された材料を得る
材料として薄暗いomaterial
omaterial = odoc.materials.item (omaterialname) を設定する

'部品材料を変更する
opartcompdef.material = omaterial

エンドサブ

助けてくれてありがとう

 

[Catafratto]

いくつかの些細な変更と私には、それが動作する、あなたは正しいパスです。)
もちろん、コンボボックスに書かれているものを見てみましょう。 お問い合わせ

パブリックサブコンボマット_change()

' アクティブな部分の文書への参照を設定します
dim odoc として partdocument
odoc = thisapplication.activedocument を設定する

'材料コレクションへの参照を設定します。
材料を材料として薄暗くして下さい
omaterials = odoc.materials を設定する


' 選択した項目を取得する
dim omaterialname を文字列として
'omaterialname = コンボマット.listitem(combomat.listindex)
omaterialname = "c40"

dim opartcompdef として partcomponentdefinition
opartcompdef = odoc.componentdefinition を設定する

' 選択された材料を得る
材料として薄暗いomaterial
omaterial = odoc.materials.item (omaterialname) を設定する

'部品材料を変更する
opartcompdef.material = omaterial

エンドサブ

 

[reb_bl]

いくつかの些細な変更と私には、それが動作する、あなたは正しいパスです。)
もちろん、コンボボックスに書かれているものを見てみましょう。 お問い合わせ

パブリックサブコンボマット_change()

' アクティブな部分の文書への参照を設定します
dim odoc として partdocument
odoc = thisapplication.activedocument を設定する

'材料コレクションへの参照を設定します。
材料を材料として薄暗くして下さい
omaterials = odoc.materials を設定する


' 選択した項目を取得する
dim omaterialname を文字列として
'omaterialname = コンボマット.listitem(combomat.listindex)
omaterialname = "c40"

dim opartcompdef として partcomponentdefinition
opartcompdef = odoc.componentdefinition を設定する

' 選択された材料を得る
材料として薄暗いomaterial
omaterial = odoc.materials.item (omaterialname) を設定する

'部品材料を変更する
opartcompdef.material = omaterial

エンドサブ

お問い合わせ
私はあなたのコードを試してみましたが、それは動作しません(または私が望む限りではありません)。
実際に投稿を読んでも、自分がやりたいことを少し理解してみると、うまくいきましょう。
私が仮説したコンボボックスでは、基本的には発明材料のメニューを複製したいと思っていたので、インサートした部分の材料を読み、それをクリックして、ライブラリの材料のいずれかを選ぶことができます。
部分の材料を読んで、それは大きな問題ではありませんが、ライブラリの材料で人気のあるコンボボックス、そこに私はセーズし、私はもはや何かを行うことはできません。

 

[Catafratto]

' opart は、上流のどこかに既に定義されています... .
' myform.cmbmaterial は myform フォームで定義されているコンボボックスです (名前は調整されます)

材料を材料として薄暗くして下さい
omaterials = opart.materials を設定する

材料として薄暗いomaterial
omaterialsの各omaterialsのための
myform.cmbmaterial.additem (omaterial.name) の
次のomaterial

 

[reb_bl]

ふわの断層が発見され、詰め物、ベース。
フォーム: userform1
コンボボックス:コンボボックス1

パブリックサブコンボボックス1_change()

dim opartとしてpartdocument
opart = kpartdocumentobject を設定する

材料を材料として薄暗くして下さい
omaterials = opart.materials を設定する

材料として薄暗いomaterial
omaterialsの各omaterialsのための
userform1.combobox1.additem (omaterial.name) の
次のomaterial

エンドサブ

明らかに以下の文書部分で起動されたフォーム。

私は、彼はいくつかのstupidityで間違っていると確信していますが、私は理解できません。

 

[Catafratto]

プライベートサブ userform_initialize()

dim opartとしてpartdocument
opart = thisapplication.activeeditdocument を設定する

材料を材料として薄暗くして下さい
omaterials = opart.materials を設定する

材料として薄暗いomaterial
omaterialsの各omaterialsのための
userform1.combobox1.additem (omaterial.name) の
次のomaterial

エンドサブ

コードを userform_initialize() に内部で人気のあるコンボボックスに置き、フォームが起動したときにアクティベートします。
お問い合わせ
opart = kpartdocumentobject を設定する
攻撃の影響です。, 私は想像します。-)
コンボボックスを変更し始めたばかりのコード

これらの行は、必要に応じてキーの圧力でそれらをアクティブ化することもできます。 userform_initialize はフォームの開口部に自動的に変わります。

 

[reb_bl]

プライベートサブ userform_initialize()

dim opartとしてpartdocument
opart = thisapplication.activeeditdocument を設定する

材料を材料として薄暗くして下さい
omaterials = opart.materials を設定する

材料として薄暗いomaterial
omaterialsの各omaterialsのための
userform1.combobox1.additem (omaterial.name) の
次のomaterial

エンドサブ

コードを userform_initialize() に内部で人気のあるコンボボックスに置き、フォームが起動したときにアクティベートします。
お問い合わせ
opart = kpartdocumentobject を設定する
攻撃の影響です。, 私は想像します。-)
コンボボックスを変更し始めたばかりのコード

これらの行は、必要に応じてキーの圧力でそれらをアクティブ化することもできます。 userform_initialize はフォームの開口部に自動的に変わります。

お問い合わせ フォームを起動する問題でした!

7 opart = kpartdocumentobject

パーツのみで作業し、アセンブリだけでなく、暗くなり、古典で解決しました。

エラーで次の再開

最初は素晴らしかったです!