[[20180220133024]]　『ハイパーリンクを使用した目次のファイルを細長く』（片岡）　ページの最後に飛ぶ

『ハイパーリンクを使用した目次のファイルを細長くして右端に常に置くには？』（片岡）

ハイパーリンクを使用した目次のファイルを細長くして右端に常に置くには？

ハイパーリンクを使って20個ほどの目次をA1：A20に設定しました。
そのウィンドウのサイズを４ｃｍ×１３ｃｍの大きさにして常に右端に寄せて
置くようにしたいと思いました。

ところがA1をクリックするとリンク先のファイルにジャンプはするのですが、ウィンドウのサイズが４ｃｍ×１３ｃｍの大きさになってさらに目次のファイルが見えなくなります。

目次ファイルのA1をクリックしても
1.目次のファイルはそのままの大きさでそこに
2.リンク先のファイルは画面いっぱいに（目次のファイルは、リンク先のファイルをちょっとずらせば見えるので）
．．．このようなことって出来るのでしょうか？

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 一般機能ではできないのではないでしょうか。

 マクロを使用した案を提示してきます。
 ハイパーリンクのあるセルにリンク先のパスが書かれている前提で。
 ハイパーリンクを解除します。
 シートモジュールに下記を貼り付けます。
 シートモジュールはシートタブを右クリックし、「コードの表示」をクリック→VBE画面が立ち上がる
 右上の大きな空白部分です。
 貼り付けたらVBEは閉じます。
 ワークシート上のセルをクリックします。

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If InStr(Target.Value, "xls") > 0 Then
        If Len(Dir(Target.Value)) > 0 Then
            If MsgBox(Target.Value & "を開きますか？", vbYesNo + vbInformation) = vbYes Then
                Set xlApp = CreateObject("Excel.Application")
                With CreateObject("Excel.Application")
                    .Visible = True
                    .WindowState = xlMaximized
                    .Workbooks.Open Target.Value
                    If err.Number > 0 Then
                        .Quit
                        MsgBox Target.Value & "を開けませんでした。", vbExclamation
                    End If
                End With
            Else
                MsgBox "キャンセルしました。", vbInformation
            End If

        End If
    End If
    On Error GoTo 0
 End Sub
（ろっくん） 2018/02/20(火) 16:17

　今一状況を把握して無いけど。

 挿入　→　オブジェクト　→　ファイルから
 で、参照でファイル指定、アイコンで表示にチェック

 これやったんですよね？
（BJ） 2018/02/20(火) 17:06

 この場合のハイパーリンクはセルの右クリックメニューのハイパーリンク（あるいは挿入タブ-リンク-ハイパーリンク）
 だと思うが。
 で状況からするとハイパーリンク先もExcelブックだろう。
（ねむねむ） 2018/02/20(火) 17:19

こんばんは。

ろっくんさん
BJさん
ねむねむさん　

右クリックメニューのハイパーリンクでリンク先もExcelブックです。

一般機能ではできないのであればあきらめます。

ありがとうございました。

（片岡） 2018/02/21(水) 20:27

コメント返信：

[ 一覧(最新更新順) ]

[[20180220133024]] 『ハイパーリンクを使用した目次のファイルを細長く』（片岡） ページの最後に飛ぶ

[[20180220133024]]　『ハイパーリンクを使用した目次のファイルを細長く』（片岡）　ページの最後に飛ぶ