myshp

This code captures the action when the user checks the checkbox on Sheet1: Option Explicit ' Worksheet module Dim CheckBoxesColl As Collection Private Sub Worksheet_Activate() Dim CheckBoxHandler As ClsCheckBoxEvent Dim MyShp As Shape Set CheckBoxesColl = New Collection For...

Hi, Found the code below on a thread in this forum to resize the for cell validationbut I want to add it in to an existing workbook. I have had this working in a new workbook and have changed the value for "ActiveSheet.Shapes("Drop Down 1")" to 2, 3 etc as I have added new dropdowns to the...

In this I have Gradient Rectangular how to get Path or Redial Types ? Sub FillGradientRedial() Dim Shp As Shape Dim MyShp As Shape For Each Shp In ActiveSheet.Shapes Shp.Delete Next Set MyShp = ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200) With...