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
Sheet1.Shapes(x).TextFrame.Characters.Text = Round(((Sheet1.Shapes(x).Width / 72) * (Sheet1.Shapes(x).Height / 72)), 2)
Next x
End Sub
Thank you.
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
Sheet1.Shapes(x).TextFrame.Characters.Text = Round(((Sheet1.Shapes(x).Width / 72) * (Sheet1.Shapes(x).Height / 72)), 2)
Next x
End Sub
Thank you.