• 締切済み

Office2010 でマクロが動きません

Office2007?(2010の前のバージョン)で作成したExclファイルをWindows7(Office2010)で実行すると     実行時エラー”481”     ピクチャが不正です。 のメッセージが出て、デバグをクリックすると以下の命令列が表示されます。        :        :    画像ファイル名 = "成績グラフ.gif"     グラフ.Export 画像ファイル名, "GIF" ⇒  Image1.Picture = LoadPicture(画像ファイル名) ピクチャが不正と言われても、古いバージョンのOfficeでは動いているので、Office2010の不正としか思えないのですが、どなたか、この問題の解消法を教えて下さい。 なお、Office2013でどうなるかは確かめていません。

みんなの回答

  • nonamochi
  • ベストアンサー率62% (228/365)
回答No.1

こんにちは レスが付かない様なので体験談を書きます。 ただし申し訳無いですが解決策ではありません。 逆の経験をしました。 Excel2010で作成したVBAプログラムをExcel2007で走らせると速度が極端に遅くなり、あげくの果てにはエラーが出る。あっちこっち散々調べ回った結果、同じ様な問題は多数報告されているが解決の決めては無し。 どこかに2007で問題を発生させるコマンドがあるのではと考え、VBAプログラムを動作確認しながら削除して行ったが、最終的に全て削除しても速度の低下は改善されず(そんなバカな・・・状態)。 結局、当該プログラムを使用する人間のPCにインストールしているOffice2007を全てOffice2010にバージョンアップする事で逃げました。 2007以前と2010の間にはVBA(マクロ)の互換性で問題が有りと見ていますが、原因は掴めていません。 今回の件もその辺に問題があるのではと考えます。 プログラムそのものが複雑でなければ、2010で入力し直すのが手っ取り早いのではと思います。 私の場合、プログラムが巨大かつ複雑過ぎて再入力は不可能でした。

関連するQ&A

  • Microsoft Office Picture Managerのアイコンになってしまう

    みなさん、こんにちは。 以前、どこをどーしたのか、画像ファイル(gif jpgなど)のファイルの種類が、全部Paint Shop Pro 7になってしまいました。アイコンも全部そのアイコンです。 そこで、色々いじってみた所、今度は画像ファイルのプログラムが、全部Microsoft Office Picture Managerになってしまいました。gif・jpgアイコンの左上に、Microsoft Office Picture Managerのアイコンが付いてしまいます。 普通のgif・jpg等にするには、どうすればよろしいのでしょうか?是非、ご回答をよろしくお願いいたしますm(__)m

  • コントロールの挿入と同時に画像を表示する方法

    アクティブエックスコントロールのイメージコントロールの設置と同時に、 画像をそのコントロールに表示するvbaを作ってるのですが、 実行時エラー438が発生します。 Sub test() Dim objOLE As OLEObject Set objOLE = ActiveSheet.OLEObjects.Add("Forms.Image.1") With objOLE .Name = "Image" .Picture = LoadPicture("C:\1.gif") End With End Sub C:\1.gifのパスをブラウザで表示させることはできるので、ファイルは存在しているし、 パスは間違っていません。 .Picture = LoadPicture("C:\1.gif") をコメントアウトすれば正常にコントロールが挿入されます。 コントロールの挿入と同時に画像を表示する方法を教えてください。 ご回答よろしくお願いします。

  • tiffファイルを「Office Document Imaging」 で開くには

    教えてください。 tiffファイルをクリックした時、「Office Document Imaging」 で開くようにしたいです。 (実行プログラムがわかれば、エクスプローラの「開く」で設定できるので、)実行プログラムを探しましたがそれも見つけられませんでした。 会社のPC交換で、うまく開かなくなりました。 ■使用PC:Windows XP Pro SP3 ■アプリ:Office 2003 Professhional(PictureEXCElは2003 SP3)  ■内容:保存されたtiffファイルを開くと、「Microsoft Office Picture Manager」の窓が開き、画像ファイル名は表示されますが、画像自身は開けず、四角に×のアイコンが表示されます。 ■このやり方で開けられましたが、不便です: (1)スタート→プログラム→MicroOfficeツール\Microsoft Docement Imaging を先に立ち上げておき、(2)ファイル→開く でtiffファイルを探す (3)画像ファイルが開ける。 ■やってみたこと: (1)Microsoft Docement Imagingプログラムの在り処を探したが、実行プログラムが見つけられない。 (1)C:\Program Files\Microsoft Office\OFFICE11の下 (2)C:\Windows\system32の下 (EXE形式ファイルを探したが見つけられなかった。) (2)エクスプローラ→ツール→フォルダオプション→ファイルの種類→(拡張子TIFFを選択)→(変更)→(推奨されたプログラムに)、「Microsoft Office Picture Manager」が入ってしまっている。 (3)「Microsoft Office Picture Manager」の「表示」の設定を触ってみましたが、画像表示ができませんでした。 どうぞよろしくお願いします。

  • 【Excel】リストボックスからのグラフ表示方法

    教えてください! 今、フォームで表示されたリストボックスから一つ項目を選択しOKボタン(CommandButton1)を押すと、すでに別のワークシートに作成されたグラフが今開いているシートにユーザーフォームで表示されるというファイルを作成しています。 グラフがユーザーフォーム内に表示されるというのは出来たのですが、項目数が7つあるリストボックスからそれぞれ選択すると、 AAA→グラフ1 BBB→グラフ2 CCC→グラフ3 DDD→グラフ4  ・  ・  ・ という風に「リストボックスのこの文字を選択しOKボタンを押すと、このグラフが表示されるようにする」といったようなマクロを完成させたいのです。 ちなみにグラフが表示されるようにするのに、以下のような記述をしました。 ------------------------------------------------- Worksheets("グラフ1").ChartObjects(1).Chart.Export ThisWorkbook.Path & "\Chart1.gif" UserForm1.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Chart1.gif") UserForm1.StartUpPosition = 1 UserForm1.Show ------------------------------------------------- 困っています。 教えてください。宜しくお願いいたします。

  • 画像ファイルのプログラムが変です。

    みなさん、こんにちは。 以前、どこをどーしたのか、画像ファイル(gif jpgなど)のファイルの種類が、全部Paint Shop Pro 7になってしまいました。アイコンも全部そのアイコンです。 そこで、色々いじってみた所、今度は画像ファイルのプログラムが、全部Microsoft Office Picture Managerになってしまいました。gif・jpgアイコンの左上に、Microsoft Office Picture Managerのアイコンが付いてしまいます。 普通のgif・jpg等にするには、どうすればよろしいのでしょうか?是非、ご回答をよろしくお願いいたしますm(__)m

  • 画像を開くとMicrosoft Office Picture Managerが起動する

    今まで画像のロゴ(Jpegやgifの)をクリックすると実寸大のような大きく表示される画面になって、拡大や画像の回転、編集のロゴを押すとペイントが立ち上がるようになっていたのですが、一度Microsoft Office Picture Managerを使ったら画像のロゴの上にMicrosoft Office Picture Managerのロゴがくっついた状態に変わり、クリックするとMicrosoft Office Picture Managerで開かれるようになってしまいました。 Microsoft Office Picture Managerは便利ですが、今まで使っていたものの方が使い慣れているので戻したいのですが、どうすればいいのでしょうか? OSはwinXPです。 初期設定のまま使っていたと思うのでその状態へ戻す方法を教えてください。よろしくお願いします。

  • ユーザーフォームでのグラフ表示

    今,エクセルのユーザーフォームでグラフを表示させたいのですが,うまくいきません. ユーザーフォームを作成しているブックとは違うブックのシート1にデータ,このデータを使用してsheet2にグラフを作成しています.このグラフを違うブックで作成しているユーザーフォームで表示させたいのです. 今,組んでいるマクロは以下のようになっています. Sub point1() openfilename = "1F-1.xls" folderpath = "G:\関電営業所\相生営業所\20110928 関電相生営業所収集データ\おんとり\text\Excel\" Ofilenamepath = folderpath & openfilename Workbooks(openfilename).Worksheets(2).ChartObjects(1).Chart.Export ThisWorkbook.Path & "\Chart1.gif" UserForm1.Image1.Picture = LoadPicture(Ofilenamepath & "\Chart1.gif") UserForm1.Show End Sub 上から5行目のところでエラーが出てしまいます. エラーは「オブジェクトが不正です」とでます. どなたか解決方法を教えてください。

  • VBA ある位置にある全てのxlsに対してマクロ実行

    あるフォルダ内の全てのxlsファイルに対して命令を実行するマクロを作成しています。 命令したいファイル群の、ブック名はバラバラ。シートは一つのみ。ファイル数は定まっていません。 ブック名や数が定まっているファイルに対して命令を実行するマクロなら作成したことがあるのですが、今回のようにあればある分だけ、命令を実行させるにはどのように記述すればいいのでしょうか? どうかよろしくお願いします。

  • Microsoft Office Picture Manager

    お世話になります。 PC初心者です。Windows XPを使用しています。 画像をダウンロードとかしてたら、いつの間にか画像を見るファイルがMicrosoft Office Picture Managerになってました。(アイコンが変わってました。) このMicrosoft Office Picture Managerは、スライドショーが出来ないのでしょうか? アイコンが変わる前は、画像を開いてスライドショーが出来たのですが。 スライドショーで画像を見るにはどうすればいいですか?

  • エクセル2010のvbaについて

    ホームページから画像(pngやgif)を ダウンロードしているのですが無理やりgifファイルで保存したところ ペイントで開けたり普通に挿入できたりできますが ActiveXコントロールのイメージには ピクチャが不正です、というエラーで挿入することができません pngをgifに無理やり拡張子を変えず保存することができますか? 回答お願いします