1

グラフや写真などの図形を含む Excel シートから印刷可能なレポートを作成しようとしています。以下のコードを使用して、チャートをシートに配置できます。

    oSheetReport.Range("A51").Select()

    Dim oChart1 As Excel.Shape
    oChart1 = oSheetReport.Shapes.AddChart()
    oChart1.Chart.ChartType = Excel.XlChartType.xlLine
    oChart1.Chart.SetSourceData(Source:=oSheet.UsedRange)

    oSheetReport.Range("A70").Select()

    oChart1 = oSheetReport.Shapes.AddChart()
    oChart1.Chart.ChartType = Excel.XlChartType.xlColumnStacked
    oChart1.Chart.SetSourceData(Source:=oSheet.UsedRange)

    oSheetReport.Range("A100").Select()

    oChart1 = oSheetReport.Shapes.AddChart()
    oChart1.Chart.ChartType = Excel.XlChartType.xlColumnStacked100
    oChart1.Chart.SetSourceData(Source:=oSheet.UsedRange)

しかし、配置と配置がうまくいかず、レポートの見栄えが悪くなります。これを達成するためのより良い方法はありますか？

4

1 に答える 1

3

1 つのステップで追加、配置、整列するには、以下を使用できます。

Set oChart1 = ActiveSheet.ChartObjects.Add _
        (Left:=250, Width:=375, Top:=75, Height:=225)

Leftは左揃え、Topは上揃えです。WidthそしてHeight- まあ、あなたはそれを理解することができます!

詳細については、http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.htmlを参照してください。

于 2012-10-10T13:00:15.537 に答える