Win 7で、Word2007を使っています。

ハイパーリンクの設定をかけようとすると
「このコンピューターに設定されている制約のためこの操作は中止されました。システム管理者に問い合わせて下さい」と出ます。

どこを直せば設定がかかるでしょうか。
教えてください。
宜しくお願い致します。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

http://pcclick.seesaa.net/article/125830476.html
が比較的詳しく書かれています。
MIcroSoftが提供する対策で改善しない場合の対応も書かれています。
    • good
    • 0
この回答へのお礼

ありがとうございます。
知り合いのパソコンなのでメールで教えてあげました。

あとはできたぁという返事を待つのみです。

お世話になりました。

お礼日時:2011/04/23 18:17

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QVBA 固定セルから可変セルへのハイパーリンク

VBA、マクロの記述方法を教えてください
ハイパーリンク元:ワークシート1のA1セル
ハイパーリンク先:ワークシート2のcells(リンク先セルの行番号,リンク先セルの列番号)
リンク先セルの行番号、リンク先セルの列番号はいずれもINTEGERの変数名、でハイパーリンクを張ろうとする時点(段階)でマクロによって値が定義(付与)されているもの、とします

Aベストアンサー

これでいかがでしょうか?

Dim sCell As String
Dim iRow As Integer
Dim iCol As Integer

iRow = 2
iCol = 3
sCell = Cells(iRow, iCol).Address

Range("A1").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Sheet2!" & sCell

QEXCEL2007でセルにハイパーリンクを設定したいのですが、挿入タブ

EXCEL2007でセルにハイパーリンクを設定したいのですが、挿入タブの「リンク」も右クリックの「リンク」もグレーアウトしていて使用できません。
ボタンを有効にするにはどうしたらよいですか?(もしくは代替案でも‥)

ちなみに、ファイルは共有ディスクに格納されていて、互換共有(?)のファイルです。
そのことは関連ありますか?

Aベストアンサー

互換は関係有りませんが,共有していると出来ません。
2007では校閲タブで一度ブックの共有を解除し,するとハイパーリンクが付けられるので必要なだけ設定し,その後必要なら再度ブックの共有を取り付けます。

ただ,共有ディスクに置いてあるからといって本当にブックの共有が必要なのか,改めて検討しておく事をお薦めします。しばしばそのまま使っていると,ブックが壊れます。

QExcel VBA によるハイパーリンクセル挿入

よろしくお願い致します。
Excelで写真データの管理出来るシートを作成しようとしています。
基本項目として、5項目+今回のハイパーリンクパスです。
1データ横一行に入力を行い、必要条件に応じシートから抽出し行末のハイパーリンクをクリックし写真を確認出来る様な事を想定しています。
ネットにて調べたのですが、ハイパーリンクを入力したいセルを選択後マクロボタンを押し「msoFileDialogFilePicker」を使用して該当ファイルを選択した物のハイパーリンクパスをセルに納める様に出来ればと思っています。当ファイルの使用は私以外の者が使用する為、上記VBAのFileDialogのインターフェースを使いたいと思っています。
何分当方VBA初心者の為、皆様のお力を頂きたくよろしくお願い致します。

Aベストアンサー

Sub Hyperlink挿入()
Dim FLDname As String
Dim fname As String
FLDname = "E:\写真\*.jpg"
fname = ""
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = FLDname
.AllowMultiSelect = False
If .Show = True Then
fname = .SelectedItems(1)
End If
End With
if fname<>""
ActiveCell.Value = fname
ActiveSheet.Hyperlinks.Add ActiveCell, fname
end if
End Sub
こんな感じでいかがでしょう。

Sub Hyperlink挿入()
Dim FLDname As String
Dim fname As String
FLDname = "E:\写真\*.jpg"
fname = ""
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = FLDname
.AllowMultiSelect = False
If .Show = True Then
fname = .SelectedItems(1)
End If
End With
if fname<>""
ActiveCell.Value = fname
ActiveSheet.Hyperlinks.Add ActiveCell, fname
end if
End Sub...続きを読む

QWin7 Word2010の インデント設定

Word2010で、いつの間にかページ設定のインデントが「4.2mm」に表示されるようになりました。
インデントの初期設定を「0字」に戻したい(変更)のですが教えてください。
段落のダイアログで「既定に設定」しても、再立ち上げすると反映されていません。
よろしくお願いします。

Aベストアンサー

とりあえず定石で,Normalテンプレートの修復(破棄)を行ってみます。

下記参照:
http://support.microsoft.com/kb/921541/ja
資料の「全文書対象のテンプレート ファイル Normal.dot または Normal.dotm の名前を変更する」の「Word 2007 および Word 2010:」の「Windows Vista または Windows 7: 」の段取りを,資料の手順通りに行います。

QWORD VBAでハイパーリンクの文字列色変更

最初の質問
VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)

早速keithinさんより以下のご回答をいただきました。新しいWORDファイルで例題(30行ぐらい)を作り実行したところ、希望通りの結果でした。 その後ハイパーリンクの全てが表の中にある本ファイルで実行したところ、ハイパーリンクスタイルを再設定する途中で止まってしまい(12-13は設定されている)、”指定されたプロパティはこのオブジェクトではサポートされません”として
h.Range.Style = wdStyleHyperlink
がハイライトされてしまいます。
どのような問題が考えられるのでしょうか?

問題解決したと云いながら申し訳ありません。 サポートよろしくお願いします。







Sub macro1()
 Dim h As Hyperlink

’全文のフォントを設定する
 With ActiveDocument.Range(0, ActiveDocument.Range.End).Font
  .Name = "MS Pゴシック"
  .Size = 10.5
  .Bold = False
  .Color = wdColorBlack
 End With

’ハイパーリンクスタイルを再設定する
 For Each h In ActiveDocument.Hyperlinks
  h.Range.Style = wdStyleHyperlink
 Next
End Sub

最初の質問
VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)

早速keithinさんより以下のご回答をいただきました。新しいWORDファイルで例題(...続きを読む

Aベストアンサー

ん~~~
とりあえず次のようにしてみて下さい。

変更前:
 h.Range.Style = wdStyleHyperlink

変更後:
 if h.type = msohyperlinkrange then
  h.Range.Style = wdStyleHyperlink
 end if


文章に埋め込まれたハイパーリンクではなく,ボタンなど図形等に取り付けたハイパーリンクを一緒にコピーしてきているのではないかと思います。




またはもっと安直に,

sub macro1()
の直下に

sub macro1()
on error resume next

のようにするのでも出来ます。

QWord2007で新規に文書を作成するためにWord2007を起動する

Word2007で新規に文書を作成するためにWord2007を起動すると、「ユーザー名の指定」を求めるダイアローグボックスがでます。いつもこれには答えず、このダイアローグボックスを消してから文書を作成していますが、そもそもこのダイアローグボックスが出ないようにしたいのですが、どうすればよいのでしょうか教えてください。

Aベストアンサー

ユーザ名と頭文字を入力して登録すれば次からは出来ないはずですが。

Qexcel2000vba ハイパーリンク

excel2000のVBAのプロシージャを教えてください。

写真にあるとおり、sheet1の A1からA200セルまでに、 フルパスのアドレス、0、空白 が入っています。
ここで、フルパスが入っているセルを 下記の条件でハイパーリンクに置きかえたい。

1.フルパスの入っているセルをハイパーリンクのセルに変更する。
2.ハイパーリンクは、ハイパーリンクでも、ハイパーリンク関数でもいい
3.そのフルパスをハイパーリンクのリンク先アドレスにする。
4.表示文字列を ★ としたいです。

また、0が入っているセルは、空白に変更させたい。

以上がやりたいことです。そして下記プロシージャでトライしてみましたがエラーとなりうまくいきません。
プロシージャの修正もしくは、最適なプロシージャがあれば教えて欲しいです。
よろしくお願いします。


Sub test()
Dim trange As Range
Dim i As Long
For i = 1 To 200
trange = ("A" & i)
If trange.Value = "" Or "0" Then
trange.Value = ""
Else
Worksheets("Sheet2").trange.Hyperlinks.Add anchor:="★", Address:=trange.Value
End If
Next i
End Sub

excel2000のVBAのプロシージャを教えてください。

写真にあるとおり、sheet1の A1からA200セルまでに、 フルパスのアドレス、0、空白 が入っています。
ここで、フルパスが入っているセルを 下記の条件でハイパーリンクに置きかえたい。

1.フルパスの入っているセルをハイパーリンクのセルに変更する。
2.ハイパーリンクは、ハイパーリンクでも、ハイパーリンク関数でもいい
3.そのフルパスをハイパーリンクのリンク先アドレスにする。
4.表示文字列を ★ としたいです。

また、0が...続きを読む

Aベストアンサー

模範解答はcj_moverさんが既にご提示下さっていますが、
せっかくですから勉強のために私はさらに原型を残して修正ってことで・・・

Sub test()
Dim trange As Range 
Dim i As Long
 For i = 1 To 200
  Set trange = Range("A" & i)
   If trange.Value = "" Or trange.Value = 0 Then
    trange.Value = ""
   Else
    trange.Hyperlinks.Add anchor:=trange.Cells, Address:=trange.Value, TextToDisplay:="★"
   End If
  Next i
Set trange = Nothing
End Sub

Range で宣言した変数に代入するときは Set が必要です。
If で複数条件を指定するときは And , Or の後ろにも式が必要です。
Hyperlinks の使い方はもう少し勉強が必要かもです。
処理が終わったら変数に Nothing を指定して空にしてやると良いかもしれません。


ご自身のと比較して、勉強のネタにでもしてやってくださいませ。

模範解答はcj_moverさんが既にご提示下さっていますが、
せっかくですから勉強のために私はさらに原型を残して修正ってことで・・・

Sub test()
Dim trange As Range 
Dim i As Long
 For i = 1 To 200
  Set trange = Range("A" & i)
   If trange.Value = "" Or trange.Value = 0 Then
    trange.Value = ""
   Else
    trange.Hyperlinks.Add anchor:=trange.Cells, Address:=trange.Value, TextToDisplay:="★"
   End If
  Next i
Set trange = Nothing
End Sub

Range で宣言した...続きを読む

Qエクセル2007 ハイパーリンクについて

シート名は4月だとした時

  A   B    C      D  E F G H I J K L M
6  1  田中  港区    1000
7  2  佐藤  品川区   2000
8  3  高橋  江戸川区  3000
9  4  井上  荒川区   4000
10  5  山田  練馬区

と行も列も沢山ある表とします
A列には1~順番に数字が入ってますので検索の基準にしたい。

表が大きいので
A列を基準としてvlookup関数で検索しジャンプする式を作成したいのですが
うまく出来ません
検索する数字をH2にいれた時H3をクリックするとその行に飛ぶ関数を教えて下さい。

=hyperlink(vlookup,h2,a1:a8000,2,false)
と入力してもエラーになります。

確かに右クリックでハイパーリンク作成でA1とした場合(book1-sheet1!A1)と
直接入力
=hyperlink("sheet1!A1)
では表示される数式が違います
上記数式では駄目と分かりますがどうすればよいのか私の知識では無理です
どなたか教えて下さい

シート名は4月だとした時

  A   B    C      D  E F G H I J K L M
6  1  田中  港区    1000
7  2  佐藤  品川区   2000
8  3  高橋  江戸川区  3000
9  4  井上  荒川区   4000
10  5  山田  練馬区

と行も列も沢山ある表とします
A列には1~順番に数字が入ってますので検索の基準にしたい。

表が大きいので
A列を基準としてvlookup関数で検索しジャンプする式を作成したいのですが
うまく出来ません
検索する数字をH2に...続きを読む

Aベストアンサー

>検索する数字をH2にいれた時H3をクリックするとその行に飛ぶ関数
という事ですが,

>A列には1~順番に数字が入ってますので検索の基準にしたい。
という事であれば検索するまでもなく1,2,3番は6,7,8行なのですから

=HYPERLINK("#Sheet1!A"&(5+H2),"go")
などでいいです。


実は123の順番の数字を入れるのはウソでやっぱり検索しなきゃならないなら
=HYPERLINK("#Sheet1!A"&MATCH(H2,A:A,0),"go")
とかです。

QEXCEL VBA複数のハイパーリンク付き文書を保存について

EXCEL VBA複数のハイパーリンク付き文書を保存について

検索が下手なのか,参考となる情報がなかなか見つからなかったため,初めて投稿しました。
EXCEL VBAは超初心者です。Verは2000になります。どうぞ,宜しくお願いします。
下記のような動作はできますでしょうか?(超初心者のため,できるのかどうかも分かりません。)

データの状態は,TESTというファイル名でSheet1のみ使用しており,1行目~24行目は操作上のセル参照などや操作説明文に使用しています。
B25にオートフィルタ▼マークがあり,以下B26からB300ぐらいまで「レ」が入っています。(これは今後増えていきます。)また,C列D列はハイパーリンク付き文書(**.xlsと**.html)があります。
(ユーザにC列D列を見て必要ない文書はB列の「レ」を削除後,B25のオートフィルタ▼を実行してもらう。この後の動作をVBAで行いたいと思っています。)

行いたいこと)
(1)選ばれたC列D列のハイパーリンク付き文書(全て)をD10で指定された場所へ保存する
 補足)D10はユーザによって指定する場所が違う。(マイドキュメントとは限らない。)

Sub Macro5()
Dim sPath As String
Dim hwnd As Long
Dim iRet As Long
hwnd = FindWindow("XLMAIN", vbNullString)
iRet = GetFolderName(hwnd, "フォルダを選択してください。", sPath)
If iRet = 0 Then
If Len(sPath) > 3 Then sPath = sPath & "\"
Cells(10, 4).Value = sPath
ElseIf iRet = 1 Then
MsgBox "キャンセルされました。"
Else
MsgBox "エラーが発生しました。"
End If
End Sub

Web上で調べた上記コードを引用させていただいて,ユーザごとに希望保存場所が違うため,別ウィンドウからユーザに保存場所を指定してもらい,D10の値を参照するようにしました。

(2)(1)の時ファイル名を一部変更し保存する。(http://AAA.co.jp/BB/CC/DD/EE/○○-○○.xls → D10の値参照\○○-○○_C3の値参照.xls)○○-○○の部分を選ぶようにしたい。
補足)ファイル名は同じではない。

Sub Macro6()
Dim BookUrl As String
Dim BookName As String
BookUrl = Range("D10").Value
BookName = Range("C3").Value
Range("C28").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True←ここの部分がハイパーリンクと関係ありなのでわからない。(ユーザにより選ばれる文書数が違いので)
ActiveWorkbook.SaveAs Filename:= _
"" & BookUrl & "00-00" & "_" & BookName & ".xls" ←ここの「00-00」の部分がハイパーリンクと関係ありなのでわからない。(各階層各文書名が違うので)
ActiveWindow.Close
End Sub

分からないこと)
ユーザによって選ばれる文書(抽出結果)が違うため,B列でレが選ばれた場合C列D列を見る。→その文書をD10セルで指定されている場所へ保存としたいが,C列D列の文書にハイパーリンクが貼ってあり,その階層もファイル名も行ごとに違うのでどうしたらいいかわからない。現在,1文書ならば行もファイル名も指定できるのでマクロの実行で保存し,上記コードでD10セルに指定されている場所へ保存できている。

分からないこと)をまとめると,
「ユーザごとに選ばれるハイパーリンク付き文書が違うが,これをD10で指定した場所へ保存したい」
「選ばれたハイパーリンク付き文書のハイパーリングからファイル名を変更して保存する際,「○○-○○」.xls部分のみ引用したい。この部分のみまだクリアーしていません。どうもハイパーリンクが絡むと分からなくなってしまいます。

質問の書き方も長々となってしまい,分かり辛いと思います。すみません。
どうぞ宜しくお願い致します。m(_ _)m

EXCEL VBA複数のハイパーリンク付き文書を保存について

検索が下手なのか,参考となる情報がなかなか見つからなかったため,初めて投稿しました。
EXCEL VBAは超初心者です。Verは2000になります。どうぞ,宜しくお願いします。
下記のような動作はできますでしょうか?(超初心者のため,できるのかどうかも分かりません。)

データの状態は,TESTというファイル名でSheet1のみ使用しており,1行目~24行目は操作上のセル参照などや操作説明文に使用しています。
B25にオートフィルタ▼マークがあり,以下B26か...続きを読む

Aベストアンサー

>かなりの初心者なので原因がわかりませんが,本当に助かりました。
...とりあえずURLDownloadToFile関数の事は忘れてください。
VBE(VisualBaicEditor)画面で[Ctrl]+[g]キー同時押しで
[イミディエイト]ウィンドウが出ます。
Debug.Print というのは、
デバッグの為にイミディエイトウィンドウにデータを出力するメソッドです。
イミディエイトウィンドウに出力された文字列を確認してみてほしい
という意味が込められていました。
SaveAsメソッドは ' でコメントアウトしていましたので当然、実行されません。

■※1)画面がちらつくのはApplication.ScreenUpdatingプロパティで制御可能です。

■※2)既存ファイルを無視するならDir関数で存在を調べて、
あればKillステートメントで削除しておけば良いです。

Sub try_2()
  Dim BookUrl As String
  Dim BookName As String
  Dim n    As String
  Dim rng   As Range
  Dim h    As Hyperlink

  With Sheets("sheet1")
    'AutoFilterModeでなければ抜ける
    If Not .AutoFilterMode Then Exit Sub
    'とりあえずAutoFilter.RangeのC:D列をセット
    Set rng = Intersect(.AutoFilter.Range.EntireRow, .Columns("C:D"))
    BookUrl = .Range("D10").Value
    n = "_" & .Range("C3").Value
  End With
  'rngの可視セル(抽出セル)をセット
  Set rng = Intersect(rng, rng.Offset(1), rng.SpecialCells(xlCellTypeVisible))
  '抽出なければ抜ける
  If rng Is Nothing Then Exit Sub

  '■※1)画面更新停止
  Application.ScreenUpdating = False
  'rng.HyperlinksをLoop
  For Each h In rng.Hyperlinks
    'Excelファイルの処理
    If UCase(Right$(h.Address, 3)) = "XLS" Then
      h.Follow NewWindow:=False
      With ActiveWorkbook
        BookName = BookUrl & Replace$(.Name, ".xls", n & ".xls", , , vbTextCompare)
        '■※2)既存ファイルあれば削除しておく
        If Len(Dir(BookName)) > 0 Then Kill BookName
        .SaveAs Filename:=BookName
        .Close
      End With
    End If
  Next
  '■※1)画面更新再開
  Application.ScreenUpdating = True

  Set rng = Nothing
End Sub

もう少し、基礎も押さえておいたほうがよろしいかと思いますので
参考サイトを挙げておきます。
http://excelvba.pc-users.net/
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/index.html
http://www.asahi-net.or.jp/~ef2o-inue/top01.html
では。
がんばってください。

>かなりの初心者なので原因がわかりませんが,本当に助かりました。
...とりあえずURLDownloadToFile関数の事は忘れてください。
VBE(VisualBaicEditor)画面で[Ctrl]+[g]キー同時押しで
[イミディエイト]ウィンドウが出ます。
Debug.Print というのは、
デバッグの為にイミディエイトウィンドウにデータを出力するメソッドです。
イミディエイトウィンドウに出力された文字列を確認してみてほしい
という意味が込められていました。
SaveAsメソッドは ' でコメントアウトしていましたので当然、実行されません。...続きを読む

Qエクセル2007のセルに入力されたハイパーリンクを開くショートカットキーの有無

少し調べたところoffice2000くらいまではエンターキーでリンクを開けたらしいということはわかりました。

現在は一つ一つのセルをマウスクリックで開いています。

エクセル2007のセルにhyperlink関数で出力したlinkを開くショートカットキーがあったら教えてください。
もしくはそれに準ずるアドオンなどがあったら教えていただけると助かります。

よろしくおねがいします。

Aベストアンサー

> エクセル2007のセルにhyperlink関数で出力したlinkを開くショートカットキーがあったら教えてください。

「ハイパーリンクの挿入」にはショートカット キーが割り当てられていますが、
開く方には既定では設定されていないようです。
http://www2.odn.ne.jp/excel/xlshortcut.html#SEC2


ですので、ハイパーリンクを開くのにショートカットを使用したい場合は、
ハイパーリンクを開くマクロを作成して、それにショートカットキーを
割り当てることになるかと思います。


手順は以下の通り:
(VBAに慣れている場合は、「2~6」の代わりに、Alt+F11で直接VBEを
 開いて新規マクロを作成しても可)

1)Excel2007を開く
2)『表示』リボンを選択し、右端の『マクロ』の『▼』をクリックして
 『マクロの記録(R)』を選択
3)『マクロの記録』ダイアログが開くので、ショートカット キー(K)などに
 必要な情報を記録し、『Ok』ボタンをクリック
 ※全てのファイルで使用可能にする場合は、『マクロの保存先(I)』に
  「個人用マクロ ブック」を指定します。
4)『表示』リボンの『マクロ』の『▼』を再度クリックし、『記録終了(R)』
 を選択
5)再度、『表示』リボンの『マクロ』の『▼』をクリックし、『マクロの表示(V)』
 を選択
6)『マクロ』ダイアログが開くので、先ほど保存したマクロを選択し、
 『編集(E)』をクリック
7)「Sub マクロ名()」と「End Sub」と書かれた行の間に、以下のような
 コードを記述
 (「'Keyboard Shortcut:~」等、先頭に「'」がついた行はコメントなので、
  不要な場合は削除します)

 a)選択した範囲の先頭1セルのハイパーリンクを開ければよい場合:

  Selection.Hyperlinks(1).Follow

 b)複数セルを選択していた場合は、そこに含まれる全てのハイパー
  リンクを開く場合:

  Dim hLnk As Hyperlink
  For Each hLnk In Selection.Hyperlinks
    hLnk.Follow
  Next

 ※「Hyperlink」と「Hyperlinks」の「s」の有無には意味があるので、
   手入力する際はご注意下さい。

8)「3」で個人用マクロ ブック)にした場合は、Excel終了時に「個人用
 マクロブックの変更を保存しますか?」のメッセージが出るので「はい」
 を選択します。
 それ以外の場合は、開いていたファイル自体を「Excel マクロ有効
 ブック」形式で保存して下さい。


・・・以上です。
これで、指定したショートカットキーでハイパーリンクを開けるようになります。


なお、後からショートカットキーの割り当てを変更することもできます。
http://www.officepro.jp/excelmacro/run/index1.html

> エクセル2007のセルにhyperlink関数で出力したlinkを開くショートカットキーがあったら教えてください。

「ハイパーリンクの挿入」にはショートカット キーが割り当てられていますが、
開く方には既定では設定されていないようです。
http://www2.odn.ne.jp/excel/xlshortcut.html#SEC2


ですので、ハイパーリンクを開くのにショートカットを使用したい場合は、
ハイパーリンクを開くマクロを作成して、それにショートカットキーを
割り当てることになるかと思います。


手順は以下の通り:
(VB...続きを読む


人気Q&Aランキング