2016-09-14 17 views
-1

私はいくつかのchechboxesを作成するExcelマクロを作成したいと思います。マクロを記録するときには、編集モードでチェクボックスのプロパティを選択し、左側でチェクボックスに新しい位置の値、サイズの値、名前とキャプションを付けます。しかし、マクロ自体は、サイズと位置の値だけを覚えていません。Excelのチェックボックス名の変更

それは、Visual Basicのコードになります:私はCaption:="xyz"、それはエラーになることを、コード自体に記述しようとすると

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ 
     DisplayAsIcon:=False, Left:=128.25, Top:=84.75, Width:=108, Height:= _ 
     21).Select 

。 どうすれば対応できますか?

答えて

1

をご覧ください。その後、this questionのコード(答えていない)が必要な構文を提供することができます。

そうでない場合は、次のように動作するはずです、それはクリーンではないのですが、ジョブ(thisを見つけるためのGoogleに帽子の先端)を行います。あなたがにステップを使用して、これを実行することはできません

Sub test() 
Dim obj As OLEObject 
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1") 
obj.Name = "checkboxx" 
obj.Object.Caption = "CAPTION" 
End Sub 

注意VBAの機能性(F8)。

+0

ありがとう、私はその構文を解釈しようとしましたが、何かが間違っています。これで助けてもらえますか? OLEObjectとして ActiveSheet.OLEObjects.Add(ClassType:= "Forms.CheckBox.1"、Link:= False)。ワークシートで( "Munka1") .OLEObjects内の各objに対して If TypeName(obj。オブジェクト)= "Forms.CheckBox.1" その後 obj.Name = "chechboxx" obj.Caption = "CAPTION" エンド申し訳ありませんが、私はどのようにフォーマットするか、まだ知らない –

+0

で 次OBJ 終了した場合コメント –

+1

_Form_Control_ではなく_ActiveX Control_が必要ですか? –

0

あなたのVBAマクロを経てこれを実行したい場合は添付された画像1

+0

ありがとう、それはキャプションの名前ではなく動作します。これは、コードにこれを書き込む:Selection.Name = "xyz"しかし、私もキャプションを書き直したいと思います。 –

関連する問題