Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
nHeight=100
nWidth=100
for each co in activesheet.chartobjects
with co
.width= nWidth
.height= nHeight
end with
next
Sub ResizeCharts()
nHeight = InputBox("Height in inches:") * Application.InchesToPoints
nWidth = InputBox("Width in inches:") * Application.InchesToPoints
For Each co In ActiveSheet.ChartObjects
With co
.Width = nWidth
.Height = nHeight
End With
Next
End Sub