OSは2000、ブラウザはIE5です。
表示→ソースにしても、ソースが表示されません・・・。
ナゼでしょうか。
ちなみに、ソースを非表示にするスクリプトがあるかもしれませんが、
自分のHP(非表示にしてない)すらソースを見ることができません。
見たところ、「インターネットオプション」にその設定も
ないみたいですが・・・。

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

A 回答 (2件)

ツール→インターネットオプション→インターネット一時ファイル


の所のファイルの削除を実行すると指定のエディタが開いて
ソースが見えるかも知れません。まずはお試しを
    • good
    • 0
この回答へのお礼

ありがとうございました。
おっしゃる通りの方法で無事解決いたしましたv

お礼日時:2001/05/29 21:15

インターネットオプション=>プログラム=>HTMLエディッタ=>ソフトで


ノートパッドかワープロソフトが動きませんか?

HTMLエディッタ で表示されるソフトを増やす方法。(雑誌に載ってたやつ)
1,関連づけを追加する。
エクスプローラ起動-表示-フォルダオプション-HTML Document-編集-新規-上段 Edit-下段 他のエディッタ+スペース+”%1”
で、インターネットオプション・プログラム・HTMLエディッタに他のエディッタが追加されている。

2,レジストリをいじる。<要注意>
スタート-ファイル名を指定して実行-regedit-HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorerで、編集-新規-キー-View Source Editor(値のデータ:フルパスでソフト)と、キー-Editer Name(値のデータ:ソフト名)
で追加できるそうです。
    • good
    • 0
この回答へのお礼

インターネットオプション=>プログラム=>HTMLエディッタ=>ソフトは違うようでした。
また、出なくなったときのために、1.2を覚えておきます。
ありがとうございました。

お礼日時:2001/05/29 21:16

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

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

Qexcel スクロールしても常にボタンが表示される様にしたい。

excelで、スクロールしてもマクロを登録したボタンが表示されるようにしたいと考え、以下のマクロを作りました。


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim myBtn As Object, WinTop As Double, WinLeft As Double
On Error GoTo EndLine
Set myBtn = Sh.Shapes("ボタン 1")
If myBtn Is Nothing Then Exit Sub
WinTop = ActiveWindow.VisibleRange.Top
WinLeft = ActiveWindow.VisibleRange.Left
With myBtn
.Top = WinTop + 90 '上から
.Left = WinLeft + 790 '左から(右までで全部で650ぐらい)
End With

Set myBtn = Sh.Shapes("ボタン 2")
If myBtn Is Nothing Then Exit Sub
WinTop = ActiveWindow.VisibleRange.Top
WinLeft = ActiveWindow.VisibleRange.Left
With myBtn
.Top = WinTop + 210 '上から
.Left = WinLeft + 790 '左から(右までで全部で650ぐらい)
End With

EndLine:
End Sub

ボタン1とボタン2はそれぞれ別々のシートにあります。
このマクロですと、ボタン1は、上手く機能するのですが、ボタン2が機能しません。
どうすればよろしいでしょうか??
初心者なので、出来るだけ詳しく回答願います。

excelで、スクロールしてもマクロを登録したボタンが表示されるようにしたいと考え、以下のマクロを作りました。


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim myBtn As Object, WinTop As Double, WinLeft As Double
On Error GoTo EndLine
Set myBtn = Sh.Shapes("ボタン 1")
If myBtn Is Nothing Then Exit Sub
WinTop = ActiveWindow.VisibleRange.Top
WinLeft = ActiveWindow.VisibleRange.Left
With myBtn
.Top = WinTop + ...続きを読む

Aベストアンサー

こんにちは
ボタンを固定したいだけなら、ANo1様の回答に私も賛同します。
ただ、VBAを勉強中ということで、どうしたもんか?ということで
あれば、一例として載せますのでご参考まで。

動かない理由はANo2様が指摘している通りだと思います。

ボタン2のあるシートの時でも、Set myBtn = Sh.Shapes("ボタン 1")
が実行されます。
On Error GoTo EndLineを指定しているので、エラーは表示されませんが、
実際にはエラーが発生して終了します。

試しにOn Error GoTo EndLineをコメントアウトして実行してみると
わかると思います。

---------------以下VBA 参考------------------------------

Option Explicit         'おまじない

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim myBtn  As Object
Dim WinTop  As Double
Dim WinLeft As Double

On Error GoTo EndLine

If Sh.Name = "Sheet1" Then    'Sh.Name は ActiveSheet.NameでもOK Sheet1の名称は必要に応じて変更

  'MsgBox ("Sheet1の時のみ実行します。")

  Set myBtn = Sh.Shapes("ボタン 1")
  WinTop = ActiveWindow.VisibleRange.Top
  WinLeft = ActiveWindow.VisibleRange.Left

  With myBtn
    .Top = WinTop + 90 '上から
    .Left = WinLeft + 790 '左から(右までで全部で650ぐらい)
  End With

ElseIf Sh.Name = "Sheet2" Then  'Sh.Name は ActiveSheet.NameでもOK Sheet2の名称は必要に応じて変更
  
  'MsgBox ("Sheet2の時のみ実行します。")

  Set myBtn = Sh.Shapes("ボタン 2")
  WinTop = ActiveWindow.VisibleRange.Top
  WinLeft = ActiveWindow.VisibleRange.Left

  With myBtn
    .Top = WinTop + 210 '上から
    .Left = WinLeft + 790 '左から(右までで全部で650ぐらい)
  End With

End If
EndLine:
End Sub

Option Explicit は下記を参照
http://tryasp.winscom.co.jp/document/vbscript/586.htm

If myBtn Is Nothing Then Exit Sub での判定は On Error GoTo EndLine
と同じ効果なので除外しています。

とりあえずご参考まで

こんにちは
ボタンを固定したいだけなら、ANo1様の回答に私も賛同します。
ただ、VBAを勉強中ということで、どうしたもんか?ということで
あれば、一例として載せますのでご参考まで。

動かない理由はANo2様が指摘している通りだと思います。

ボタン2のあるシートの時でも、Set myBtn = Sh.Shapes("ボタン 1")
が実行されます。
On Error GoTo EndLineを指定しているので、エラーは表示されませんが、
実際にはエラーが発生して終了します。

試しにOn Error GoTo EndLineをコメントアウトして...続きを読む

QVBA トグルボタンで楕円表示 非表示方法

お世話になります
VBAユーザーフォーム内でトグルボタンを生成しクリック時に
セル指定及び座標表示、非表示をさせたいのですがわかる方よろしくお願いします。
又、同じフォーム内で複数使用します

Aベストアンサー

#1です。

> 確認させて頂いたところ楕円が作成されませんでした。

いや、作成してませんから、、、
読み返しましたがご質問に「楕円を作る」話は無いように思えます。
先の例は、実行前に出来ている物の表示・非表示を切替えます。

以下ではどうでしょうか?
myW と myH はランダム設定にしてありますが、適当な数字を代入しても良いです。
但し、セルA1の範囲外になるとトグルのOffで消せません。

Private Sub ToggleButton1_Click()
Dim sh As Shape, myW, myH

If ToggleButton1.Value Then
  Randomize
  With ActiveSheet
   myW = Int(((.Range("A1").Width - 1) * Rnd) + 1)
   myH = Int(((.Range("A1").Height - 1) * Rnd) + 1)
   Set sh = .Shapes.AddShape(msoShapeOval, _
        .Range("A1").Left + myW, _
        .Range("A1").Top + myH, _
        .Range("A1").Width + myH, _
        .Range("A1").Height + myW)
   sh.Fill.Visible = msoFalse
  End With
Else
  For Each sh In ActiveSheet.Shapes
    If sh.TopLeftCell.Address = "$A$1" And _
     sh.AutoShapeType = msoShapeOval Then
        sh.Delete
    End If
  Next
End If

End Sub

#1です。

> 確認させて頂いたところ楕円が作成されませんでした。

いや、作成してませんから、、、
読み返しましたがご質問に「楕円を作る」話は無いように思えます。
先の例は、実行前に出来ている物の表示・非表示を切替えます。

以下ではどうでしょうか?
myW と myH はランダム設定にしてありますが、適当な数字を代入しても良いです。
但し、セルA1の範囲外になるとトグルのOffで消せません。

Private Sub ToggleButton1_Click()
Dim sh As Shape, myW, myH

If ToggleButton1.Value Then...続きを読む

Qソースの表示が・・・

どもです。初登場は回答ではなく質問になってしまいました。笑
IE5.50でソースの表示に関する質問です。
適当なサイトを表示した状態で、
表示(V)→ソース(C)
もしくは、
画面で右クリック→ソースの表示(V)
でメモ帳(サイズが大きい場合はワードパッド)でソースが見れたと思うんですが、最近それで見れなくなってしまいました。
実行しても何も起こらないのです。
原因と解決法を探しています。
よろしくお願いします。

Aベストアンサー

インターネット一時ファイル、履歴のクリアをやってみてください。
インターネットのプロパティから出来ます。
また、リソースが少ない状態ではソースの表示が出来ない場合もありますので、そう言った場合はいくつか閉じてやってみてください。

QInternetExplorerでソースの表示ができない!

ただいまWin98SEでInternetExplorer5.5SP2を使っていますが
なぜか「表示」→「ソース」でも、右クリックしてソースの表示でも
ソースの表示ができません。念のため再インストールも
してみましたし、システム情報のInternetExplorerの修復も
してみましたが改善されません。どうすればソースが表示
されるようになるのでしょうか?

また、「名前を付けて画像を保存」をすると、一部のページでは
きちんとjpgやgif形式でで保存できるのですが、殆どの
ページではbmp形式でしか保存できません。どうして
こうなってしまうのですか?改善の方法があれば教えて
ください。

Aベストアンサー

後半だけのみコメントします。
おそらく保存しようとした時点でキャッシュが切れているのだと思います。
インターネット一時ファイルの容量を増やすか、強制リロード、または一時ファイルをからにしてみましょう。

ちなみに画像などファイルはブラウザで表示(ダウンロード)させたとき、そのデータをTemporary Internet Filesフォルダに保存され、
nhw10さんのいうところの「保存」はここからのコピーになります。
つまりここに該当画像ファイルがないときは、ブラウザに表示されているビット情報を直接保存することになるので、ファイル形式がBMPになってしまいます。

QIE6.0でソースの表示ができなくなった

最近突然(本当に突然で何かインストールしたとかってこともない)IEで
開いてるページのソースの表示ができなくなりました
ソースの表示をやっても無反応で何もおきません
OSはWinXP-PRO-SP1です

Aベストアンサー

ツール>インターネットオプション>ファイルの削除を試してください。


人気Q&Aランキング

おすすめ情報