[[20111020114558]]　『オートシェイプにcontroltip text機能』（てっぺん）　ページの最後に飛ぶ

『オートシェイプにcontroltip text機能』（てっぺん）

 オートシェイプの標準機能で下の機能はありますか？
 オートシェイプの上にカーソルを持って行くと
 文字を表示させる。

 フォームのボタンの、controltip textの様に
 文字を表示させたいのですが。
 マクロで可能ならばそれも教えて頂けますか？

 一筋縄ではいかない。
シェープにチャートを埋め込んで、チャートにマウスをあてるとチャート名が表示される機能を利用する方法とか
ハイーパーリンクを利用する方法とか。

 前者はちょっと複雑なので、後者かなぁ。
別の掲示板でとーりーさんが紹介された方法を以下に。
（マナーとしては、ＵＲＬ参照で紹介すべきだけど、ＵＲＬを失念したので手元の当時のメモからコードを）

 以下のサンプルではSheet1の上の１番目のシェープと２番目のシェープにコメントをセットしている。

 Sub Sample()
    With Sheets("Sheet1")
        .Hyperlinks.Add anchor:=.Shapes(1), Address:="", _
            SubAddress:=.Shapes(1).TopLeftCell.Address, _
            ScreenTip:="これは最初のシェープですよ"
        .Hyperlinks.Add anchor:=.Shapes(2), Address:="", _
            SubAddress:=.Shapes(2).TopLeftCell.Address, _
            ScreenTip:="これは２番目のシェープですよ"
    End With
 End Sub

 追記）コードから入ってしまったけど、操作でやるなら
　　　・シェープを選び右クリック
　　　・ハイーパーリンク　を選ぶ
　　　・このドキュメント内(A)　を選び
　　　・セル参照(E)は、シェープのあるセル（どこでもいい）
　　　・ヒント設定(P)に任意の文言
　　　・ＯＫ

 (ぶらっと)

 ぶらっとさん有り難う御座いました｡
 教えて頂いた事で実現出来ました。
 このオートシェイプはクリックすると、マクロが動作する様にしていて、
 どうも、ハイパーリンクを指定すると、クリックしたときのマクロが
 動作しないみたいです。
 ＞シェープにチャートを埋め込んで
 と言う事ですが、ここで言うチャートとはグラフとかのチャートですか？
 個数が多いので、また大変そうなので、オートシェイプを別に設けて
 コメント表示用とクリック用に分けようかと考えております。
 どうも有り難う御座いました。
 （てっぺん）

 とりあえずは、これでよしとのこと、よかった。
追加レスをしたんだけど、かえって混乱させちゃうかもしれないので、削除。

  (ぶらっと)

 これって、ハイパーリンクで飛んだ先に SelectionChangeで仕込んでおく
 とか、どうなんですかね。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20111020114558]] 『オートシェイプにcontroltip text機能』（てっぺん） ページの最後に飛ぶ

[[20111020114558]]　『オートシェイプにcontroltip text機能』（てっぺん）　ページの最後に飛ぶ