Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #110051

Re: Delete CheckBoxes

From Claus Busch <claus_busch@t-online.de>
Newsgroups microsoft.public.excel.programming
Subject Re: Delete CheckBoxes
Date 2017-05-30 07:56 +0200
Organization A noiseless patient Spider
Message-ID <ogj1av$la2$1@dont-email.me> (permalink)
References <a34c5ee8-1002-4fae-9c5e-282b5984bfa4@googlegroups.com>

Show all headers | View raw

Hi Howard,

Am Mon, 29 May 2017 22:23:20 -0700 (PDT) schrieb L. Howard:

> Sub Delete_Checkboxes2()
>   ActiveSheet.Range("A2:B10").CheckBoxes.Delete
> End Sub

try:

Sub DeleteChB()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
   If shp.Left < Columns(3).Left And shp.Top < Rows(11).Top Then
      shp.Delete
   End If
Next
End Sub


Regards
Claus B.
-- 
Windows10
Office 2016

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Delete CheckBoxes "L. Howard" <lhkittle@comcast.net> - 2017-05-29 22:23 -0700
  Re: Delete CheckBoxes Claus Busch <claus_busch@t-online.de> - 2017-05-30 07:56 +0200
    Re: Delete CheckBoxes "L. Howard" <lhkittle@comcast.net> - 2017-05-30 02:29 -0700
      Re: Delete CheckBoxes Claus Busch <claus_busch@t-online.de> - 2017-05-30 12:18 +0200
        Re: Delete CheckBoxes "L. Howard" <lhkittle@comcast.net> - 2017-05-30 09:15 -0700
  Re: Delete CheckBoxes GS <gs@v.invalid> - 2017-05-30 11:41 -0400
    Re: Delete CheckBoxes "L. Howard" <lhkittle@comcast.net> - 2017-05-30 09:27 -0700
      Re: Delete CheckBoxes GS <gs@v.invalid> - 2017-05-30 12:33 -0400
        Re: Delete CheckBoxes "L. Howard" <lhkittle@comcast.net> - 2017-05-30 14:46 -0700

csiph-web