Ｐａｇｅ 390 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼グラフの更新時のテキストボックスの動きについて こうき 02/11/26(火) 11:16 ─────────────────────────────────────── ■題名 ： グラフの更新時のテキストボックスの動きについて ■名前 ： こうき ■日付 ： 02/11/26(火) 11:16 -------------------------------------------------------------------------
| 毎日グラフの元データを1行ずつ更新しているのですが、 同時にテキストボックスが左右に移動してしまいます。 テキストボックスの位置を固定する方法はあるのでしょうか？ コードは以下のように書いています。 Dim r As Long(rはデータの一番下の行（当日分）です) Dim d As String(dは日付です) Dim ran1,ran2 As Range Set ran1 = Application.Union(.Range(.Cells(r - 199, 1), _ .Cells(r + 10,1)), .Range(.Cells(r - 199, 3), .Cells(r + 10, 6))) Set ran2 = .Range(.Cells(r - 199, 1), .Cells(r + 10, 2)) ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.Shapes("text box 2").Select Selection.Characters.Text = d Selection.AutoScaleFont = False |