Sub 그림1_Click() Dim shpOriginalWidth As Single Dim shpOriginalHeight As Single Dim shpCellWidth As Single Dim shpCellHeight As Single Dim isCellSize As Boolean Dim shp As Shape Dim big As Sing...