VBAにてFollowHyperlinkを使うと遅くなる。

Question

VBAを使ってオブジェクトの位置とサイズの情報をある範囲に書き込むマクロを組んだのですが、このマクロを普通にボタンから呼び出せば快適な速度で処理させれるのですが、ハイパーリンクからマクロを呼び出すととてつもなく遅くなります。
どなたかこの原因と対策をお教えいただけませんでしょうか。

以下はオブジェクトの位置とサイズを書き込むマクロです。これをボタンから呼び出せば快適に処理されます。

'オブジェクトの情報取得
Sub get_sprop()
    Dim i As Long
    Dim s As Long
    Dim t As Long
    With ActiveSheet.Shapes
        For i = 1 To .Count Step 1
            s = i + 2 
            t = 49
            ActiveSheet.Cells(s, t).Value = .Item(i).Left
            ActiveSheet.Cells(s, t + 1).Value = .Item(i).Top
            ActiveSheet.Cells(s, t + 2).Value = .Item(i).Width
            ActiveSheet.Cells(s, t + 3).Value = .Item(i).Height
        Next i
    End With
End Sub

下記でハイパーリンクから上記マクロを呼び出しています。ハイパーリンクのあるセルに入力している文字は”位置サイズ保存”です。

'ハイパーリンクからマクロ実行
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Select Case Target.Name
    Case "位置サイズ保存"
        Call get_sprop
    End Select
End Sub

上記を実行すると処理は進むものの、かなり遅いです。

Answer 1

Microsoft formによれば、

• バックグラウンドでのイベントで何かしらのオーバーヘッドが起きている、かもしれない
• (高速化の常套手段の)イベントハンドラを止めても早くならないし、何をやっても救いようがない

とのことです。

もし対策があるとすれば、現状では「その関数を使わない」とか「UIを変えてしまう」とかそういう感じになると思います。

///ハイパーリンクをクリックするとブラウザが開くまでラグがあってちょっとイラっとしますよね。

Comments

[masa246]

何をやっても救いようがないということがわかっただけでも救いです。
ありがとうございます。
無限に試行錯誤するところでした。