Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


25662 / 76735 ←次へ | 前へ→

【56411】「このコンテンツを有効にする」メッセージが表示されない
質問  マリアン  - 08/6/16(月) 18:53 -

引用なし
パスワード
   ウィンドウズXP、エクセル2003で作成したマクロを
ウィンドウズXP、エクセル2007で使用する場合、
セキュリティレベルを「警告を表示してマクロを無効にする」と設定していても、
オプションから「このコンテンツを有効にする」を選択すれぱ。
使用できるはずですが、表示されるのは、
「不明なコンテンツから保護する」のみで、
「このコンテンツを有効にする」が表示されません。

ちなみにこのファイルのマクロ式は以下のようになっています。

==========================================

Public Sub InsertPicture()
  Dim fName As Variant
  '
  fName = Application.GetOpenFilename _
      ("画像ファイル,*.gif;*.jpg;*.bmp", 1, "画像挿入")

  If fName = False Then
    Exit Sub
  End If
 
  Application.ScreenUpdating = False
  '画像挿入し調整
  With Application.ActiveSheet.Pictures.Insert(fName)
   .Top = Application.ActiveCell.Top
   .Left = Application.ActiveCell.Left
   With .ShapeRange
     .LockAspectRatio = msoTrue
     .Height = 272.25
     .Width = 363#
     .Rotation = 0#
   End With
  End With
 
  Application.ScreenUpdating = True

End Sub
==================================

他にもマクロを使ったファイルでいくつか検証してみましたが、
上記のもの以外は、「このコンテンツを有効にする」が表示され、
それを選択するとファイルを使用することができます。

これは、どのような原因が考えられるでしょうか。
セキュリティレベルを低にせずに、
回避したいのですが、方法があれば教えてください。

宜しくお願いいたします。

0 hits

【56411】「このコンテンツを有効にする」メッセージが表示されない マリアン 08/6/16(月) 18:53 質問
【56412】Re:「このコンテンツを有効にする」メッセ... りん 08/6/16(月) 20:11 発言

25662 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free