Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
shapes
hi,
am trying to write code to display a small rectangle in the next cell if the current cell is not empty. example. A1 and B1 are blank but once data in entered into A1, a rectangle should display in B1. can anyone please help me with that? thanx |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
shapes
del,
Well, the quick and dirty way would be to change the font of the cell into Webdings or Wingdings like the following: If Not IsEmpty(Range("A1")) Then Range("B1").Font.Name = "Webdings" Range("B1").Value = 1 End If You have to play around with different characters to find the shape that you want. Granted, this does not give you much control over the exact specifications of your shape, but you may find something satisfactory to what you want. -----Original Message----- hi, am trying to write code to display a small rectangle in the next cell if the current cell is not empty. example. A1 and B1 are blank but once data in entered into A1, a rectangle should display in B1. can anyone please help me with that? thanx . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel document with shapes on it but the shapes do not print | Excel Worksheet Functions | |||
Naming Auto Shapes and Creating new Shapes | Excel Discussion (Misc queries) | |||
When drawing shapes in excel the shapes keep disappearing | Excel Discussion (Misc queries) | |||
How can i get more 3D shapes for Auto shapes in excel? | Excel Discussion (Misc queries) | |||
How can i get more 3D shapes for Auto shapes in excel? | Excel Discussion (Misc queries) |