A
andreashermle
Dear Experts:
below code sets a new width for all charts of the active sheet.
The input box functionality should be expanded with the following
features:
- the current width of the first chart is to be displayed as the
default width
- this default width is to be displayed in cm, not in points
- likewise the new width is to be entered in cm, not in points
Your professinal help is more than appreciated. Thank you very much in
advance.
Regards, Andreas
Sub ResizeCharts()
Dim myChtObj As ChartObject
Dim myInput As String
myInput = InputBox(Prompt:="New Width for all charts.", _
Title:="ENTER NEW WIDTH FOR ALL CHARTS", Default:="400")
For Each myChtObj In ActiveSheet.ChartObjects
myChtObj.Width = myInput
Next myChtObj
End Sub
below code sets a new width for all charts of the active sheet.
The input box functionality should be expanded with the following
features:
- the current width of the first chart is to be displayed as the
default width
- this default width is to be displayed in cm, not in points
- likewise the new width is to be entered in cm, not in points
Your professinal help is more than appreciated. Thank you very much in
advance.
Regards, Andreas
Sub ResizeCharts()
Dim myChtObj As ChartObject
Dim myInput As String
myInput = InputBox(Prompt:="New Width for all charts.", _
Title:="ENTER NEW WIDTH FOR ALL CHARTS", Default:="400")
For Each myChtObj In ActiveSheet.ChartObjects
myChtObj.Width = myInput
Next myChtObj
End Sub