Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations dencom on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Count shapes with same color
hi, How could I count the shapes with same color? Dim shp As Shape Dim vbYellow As Long Dim vbGrey As Long Dim vbRed As Long Dim vbGreen As Long If ActiveSheet.Shapes.ForeColor.RGB = vbYellow Then Sheet1.Cells(2, 1) = ActiveSheet.Shapes.Count End If- Tze Chyi
- Thread
- Replies: 9
- Forum: VBA Visual Basic for Applications (Microsoft)
-
VB Excel_Area calculated in inches_Inaccurate
Hi, I had convert the shape area to inches by dividing the width and height by 72. but the data shown is inaccurate. For example, I had the rectangle shape with Width = 10.95", Height = 8.87" Thru calculator I got the area as 97.1265 But macro gave me 96.7 Sub ShowArea() Dim Width As Double...- Tze Chyi
- Thread
- Replies: 4
- Forum: VBA Visual Basic for Applications (Microsoft)
-
Show Area of Shape insert
Dear all, I wish to get the area of shapes to be shown whenever I insert new shape to excel. Here is my coding. currently I'm using divide to convert the point to inches, is there code to convert from point to inch? Sub ShowArea() For x = 1 To 50...- Tze Chyi
- Thread
- Replies: 10
- Forum: VBA Visual Basic for Applications (Microsoft)
