Home > Excel VBA | GraphControl > Excel グラフの高さ&幅設定(ChartObjects .Height & Width)

Excel グラフの高さ&幅設定(ChartObjects .Height & Width)

Posted by: WebMaster
2008年4月25日 07:03
Excel VBA | GraphControl

エクセルグラフの高さと幅を設定うするマクロを紹介します。

下記ソースコードは、シート１＆グラフ１の高さを１０高くします。まず変数CH1hを宣言して、選択したクティブチャートの高さを代入して１０を足してから高さを設定します。

This sample procedure below will increase height of the selected chart by 10.

下記は、GraphControl で使っているコードです。

The source code below is used in GraphControl.

''---------------------------------------------------------------------------------
''-------------------------高さ設定------------------------------
''-------------------------Height-----------------------------
''------------------------------------------------------------------------------
Private Sub CommandButton68_Click()
If NumChart = 0 Then Exit Sub
Dim CH1h As Single
On Error Resume Next

Application.ScreenUpdating = False
If CheckBox4.Value = True Then
Temp1 = 1: Temp2 = NumChart
Else
 Temp1 = ChartObject: Temp2 = ChartObject
End If

For ChartObject = Temp1 To Temp2
    ActiveSheet.ChartObjects(ChartObject).Activate
    CH1h = ActiveSheet.ChartObjects(ChartObject).Height
    ActiveSheet.ChartObjects(ChartObject).Height = CH1h + CSng(TextBox33.Value)
 Next

ChartObject = CInt(TextBox30.Value)

Application.ScreenUpdating = True
End Sub
''---------------------------------------------------------------------------------
''-------------------------幅設定------------------------------
''-------------------------Width-----------------------------
''------------------------------------------------------------------------------
Private Sub CommandButton71_Click()
If NumChart = 0 Then Exit Sub
Dim CH1w As Single
On Error Resume Next

Application.ScreenUpdating = False
If CheckBox4.Value = True Then
Temp1 = 1: Temp2 = NumChart
Else
 Temp1 = ChartObject: Temp2 = ChartObject
End If

For ChartObject = Temp1 To Temp2
    ActiveSheet.ChartObjects(ChartObject).Activate
    CH1w = ActiveSheet.ChartObjects(ChartObject).Width
    ActiveSheet.ChartObjects(ChartObject).Width = CH1w + CSng(TextBox33.Value)
 Next

ChartObject = CInt(TextBox30.Value)
Application.ScreenUpdating = True
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | GraphControl > Excel グラフの高さ&幅設定(ChartObjects .Height & Width)

Return to page top