|
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myStr As String
Dim T As Long, L As Long
MsgBox "シートデータは変更できません"
myStr = Worksheets("sheet1").UsedRange.Address
Application.EnableEvents = False
Worksheets("sheet1").UsedRange.Copy _
Worksheets("dummy").Range(myStr)
With Worksheets("dummy").ChartObjects
.Top = 120
.Left = 50
End With
Application.EnableEvents = True
End Sub
セルのデータは変更されたらイベントで書き戻せばいいけど
グラフの移動は検知できるのかなぁ
私には不明なので、同じイベントで元の位置へ
移動するようにしてみました。
sheet1が元シートで dummyがユーザ用シート
dummyシートモジュールに貼り付けてください。
|
|