[[20101014022604]]　『グラフ内のテキストボックス位置の調整』（tatu）　ページの最後に飛ぶ

『グラフ内のテキストボックス位置の調整』（tatu）

VBAでグラフ内にテキストボックスを作成する際に、
テキスト位置（左上）をグラフ上の点の位置にあわせることってできますか？

ActiveChart.TextBoxes.Add(a, b, 26, 15)

この様にテキスト作成した場合のaとbの部分を
グラフの点に合わせたいです。

できるようであれば、どのように書けばいいか教えてください。
よろしくお願いします。

 >この様にテキスト作成した場合のaとbの部分をグラフの点に合わせたいです。 
 プロットのそばにテキストを配置したいなら、データラベルを使ったらいかがですか？

 新規ブックにて試してみてください。

 標準モジュールに

 '======================================================================
 Option Explicit
 Sub mk_sammple()
    Dim mkcht As Chart
    Dim sht As Worksheet
    Set sht = ActiveSheet
    With sht
       On Error Resume Next
       .ChartObjects(1).Delete
       On Error GoTo 0
       .Range("a1:c1").Value = Array("ＮＡＭＥ", "ＡＶＥ", "ＨＲ")
       With .Range("a2:c27")
          .Formula = Array("=rept(char(row()+63),5)", "=round(rand(),3)", "=int(rand()*50)")
          .Value = .Value
         End With
       End With
    Set mkcht = ThisWorkbook.Charts.Add
    With mkcht
       .ChartType = xlXYScatter
       .SetSourceData Source:=sht.Range("A1:c27"), PlotBy:=xlColumns
       .SeriesCollection(1).Delete
       .SeriesCollection(1).XValues = "=" & sht.Name & "!R2C2:R27C2"
 '************************************************************************ 
 'データラベル作成例
      With .SeriesCollection(1).Points(1)
          .HasDataLabel = True
          .DataLabel.Text = "aaaaa"
       End With
       With .SeriesCollection(1).Points(2)
          .HasDataLabel = True
          .DataLabel.Text = "bbbbbb"
       End With
 '*************************************************************************
       .Location Where:=xlLocationAsObject, Name:=sht.Name
      End With
    ActiveWindow.Visible = False
    sht.Select
    ActiveCell.Select
 End Sub

 上記　mk_sammple　を実行して　検討してみてください。

 ichinose

コメント返信：

[ 一覧(最新更新順) ]

[[20101014022604]] 『グラフ内のテキストボックス位置の調整』（tatu） ページの最後に飛ぶ

[[20101014022604]]　『グラフ内のテキストボックス位置の調整』（tatu）　ページの最後に飛ぶ