[[20120513232113]]　『幾重に重なったグラフの中からあるセルに入ってい』（たこ）　ページの最後に飛ぶ

『幾重に重なったグラフの中からあるセルに入っている名前と同じグラフ名のものを最前面に表示させたい』（たこ）
お世話になっています。
Excel2003です。
A1に表示させたいグラフの名前を入れた時に、マクロで幾重に重なったグラフの中からA1セルに入っている名前と同じグラフ名のものを最前面に表示させたい場合、どのような文章にすればうまく実行されるでしょうか？

 ActiveSheet.ChartObjects("×××").Activate
 ActiveSheet.Shapes("×××").ZOrder msoBringToFront
"×××"の所になんと入れればよいかわかりません、宜しくお願いします。

 解答がつきませんが、標準モジュールで
 Sub MakeList()
    For Each grp In ActiveSheet.ChartObjects
        If lst = "" Then lst = grp.Name Else lst = lst & "," & grp.Name
    Next
        Range("A1").Validation.Delete
        Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=lst
 End Sub

 シートモジュールで
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1").AddressLocal = Target.AddressLocal Then
        ActiveSheet.ChartObjects(Range("A1").Value).Activate
        ActiveSheet.Shapes(Range("A1").Value).ZOrder msoBringToFront
    End If
 End Sub
 でどうでしょうか。
 (Mook)

コメント返信：

[ 一覧(最新更新順) ]

[[20120513232113]] 『幾重に重なったグラフの中からあるセルに入ってい』（たこ） ページの最後に飛ぶ

[[20120513232113]]　『幾重に重なったグラフの中からあるセルに入ってい』（たこ）　ページの最後に飛ぶ