0

一度書いたチャートが変更されないようにしようとしています。これを行う必要のあるコードをWebから収集しました。

Sub test()
Dim myChartObject As ChartObject
Dim MyChart As Chart

Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)

Set MyChart = myChartObject.Chart

MyChart.PlotArea.Width = Application.InchesToPoints(2.583)
MyChart.PlotArea.Height = Application.InchesToPoints(1.75)

MyChart.ChartType = xlLine

MyChart.SetSourceData Source:=ActiveWorkbook.ActiveSheet.Range("A5:D9")
MyChart.Protect Password:="pass", DrawingObjects:=True, Contents:=True

End Sub

回線でエラーが発生しますMyChart.Protect。私はそれを動作させることができません。

4

1 に答える 1

1

ワークシートでもない限り、チャートを保護できるとは思いません。グラフをワークシートに挿入しているので、ワークシートを保護して置き換えます

MyChart.Protect Password:="pass", DrawingObjects:=True, Contents:=True

と

ActiveSheet.Protect Password:="pass", DrawingObjects:=True, Contents:=True

またはチャートをワークシートとして挿入します

于 2012-04-14T03:34:42.197 に答える