|
こんにちは。
Sub yyyw()
Range("BB6:CF6,BB9:CF11").Select
Range("BB9").Activate
Charts.Add
ActiveChart.ChartType = xl3DColumnStacked
ActiveChart.SetSourceData Source:=Sheets("新表").Range("BB6:CF6,BB9:CF11")
ActiveChart.Location Where:=xlLocationAsObject, Name:="新表"
ActiveChart.Walls.Select
With ActiveChart
.Elevation = 15
.Perspective = 30
.Rotation = 20
.RightAngleAxes = True
.HeightPercent = 100
.AutoScaling = True
acn = Mid(.Name, InStr(1, .Name, " ") + 1)
End With
ActiveSheet.Shapes(acn).Name = "作ったグラフ"
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("作ったグラフ").ScaleWidth 1.38, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("作ったグラフ").ScaleHeight 0.53, msoFalse, _
msoScaleFromBottomRight
End Sub
|
|