2017-07-19 14 views
0

セルの右側にチェックボックスを配置できません。Excel VBA - セル内のチェックボックスの位置

マクロは特定のセルに左上隅にボタンを追加しますが、同じセルにチェックボックスも追加したい場合は右側に移動しません。どのようにすればいいですか?明らかに、Set chkbxの行番号50が位置を設定するために使用されます。しかし私のチェックボックスは、それを負の数に変更すると、左に行くだけです。しかし、それは右に行かない。どうしたらいいですか? HERE

Set t = ActiveSheet.Range(Cells(10, NewColumn), Cells(10, NewColumn)) 
Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, 0, 0) 
With btn 
    .OnAction = "Button_clicked" 
    .Caption = "X" 
    .Width = 15 
    .Height = 12 
    .Name = "Delete_button_" & x 
End With 

/私は右上隅に/

Set chkbx = ActiveSheet.CheckBoxes.Add(t.Left, t.Top, 50, 0) 
With chkbx 
    .Name = "CheckBox_" & x 
    .Caption = "" 
End With 

enter image description here

答えて

0

を持ちたいチェックボックスがで、今そのどこかに、ハズレも

Set chkbx = ActiveSheet.CheckBoxes.Add(t.Left, t.Top, 0, 0) 
With chkbx 
    .Name = "CheckBox_" & x 
    .Caption = "" 
    .Left = t.Left + t.Width - .Width 
End With 
+0

をお試しくださいIS真ん中、そして数字を変えようとしました+と - そしてもっと多くのn次の行の左端にあるか、セルから完全に外れているかのどちらかです。 –

+0

'End with'の前に' Debug.print .Width'ステートメントを追加します - チェックボックスの幅は何ですか(15.75でなければなりません) ? – FunThomas

+0

デバッグの値は23,25 –

関連する問題