• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• lang_and_engine2014/12/25 14:25:26

  

  こんにちは。自動化の方針があまりよろしくないような気がしますが・・・
  
  （方法その１）
  エクセルをHTML形式で保存すれば，画像を抜き出せます。なので，プリントスクリーンする必要はありません。
  
  WordやExcelに貼り付けられた画像を一発で抜き取る方法 [self reblog]※情報古いです | マイペースクリエイターの覚え書き
  http://mypacecreator.net/blog/archives/1319

  • 「ファイル＞Webページとして保存」で一発解決！！ Webページとして保存することで、埋め込み前のサイズのデータが吐き出されます。 たったこれだけ！
  
  
  

  （方法その２）
  あえてエクセルの画面をキャプチャしたいとしても，低機能なプリントスクリーンコマンドをじかに使うのではなく，高機能なキャプチャソフト（フリーソフト）で，キャプチャと同時に画像ファイルとして保存されるようにすればよいです。そのソフトのCUI呼び出しをVBSから書けばよいですね。そして保存された画像に対してトリミングなどの処理を走らせると。
  
  →「CUI 画面キャプチャ　保存　フリーソフト」でお好みのソフトをお探しください
  
  
  （方法その３）ペイントで済ませる。
  ＞mspaint.exeで実行しようとしましたが、起動時のタイミング調整が難しいことと起動してもアクティブにならないことがある
  
  どんなコードを書いた結果，ペイントではうまくいかなかったのでしょうか？コードを提示していただければ，改善できる可能性もあります。できればペイント貼り付けは避けたほうが良いですけどね。。
  
  
  GUIの関わる自動化って，安定させるのがとにかく難しいですよね。CUIでできるだけ済ませるのが近道です。
  ではよろしくお願いします。

  スター

  • 

    6件のコメントを見る

  • lang_and_engine 2014/12/25 14:28:41

    方法３に補足・・・拙筆ですが，WSHで画面キャプチャしてペイントで保存するコードをむかし公開しました。
    下記のようなコードをVBSで書いたのでしょうか？
    
    画面をコマンドラインからキャプチャする方法　（WSHバッチでPrintScreen）
    http://d.hatena.ne.jp/language_and_engineering/20081121/1227203100

    スター

  • keijun5145 2014/12/25 16:29:58

    １～２はVBAで実施しています。
    ※ファイル編集、画面切り替え、プリントスクリーンまではVBAです。
    
    以下、当該VBSのコードです。
    
    
    Option Explicit
    Dim xlsa
    Dim pt
    Dim FileName
    Dim paintexe
    Dim objExecCmd
    
    
    'エクセルの数値を反映
    Set xlsa = WScript.CreateObject("Excel.Application")
    xlsa.visible = true
    'mergeというマクロをファイル名.xlsmを開いて実行
    xlsa.Run "'" & "C:\Users\Owner\Desktop\trimming\ファイル名.xlsm" & "'!" & "merge"
    
    
    
    '------------------以下保留------------------
    'ペイントを起動する！！
    'Set pt = CreateObject("WScript.Shell")
    'paintexe = "mspaint.exe"
    'Set objExecCmd = pt.Exec(paintexe)
    
    
    ※ペイントを起動してからWScript.SleepやWScript.Timeoutを使ってもアクティブになる前に終了してしまいます。
    方法としては一定時間待ってAlt+TABをSendkeysで出してやればアクティブ化はできるかと思ったのですが…何度やってもうまく行きません。どうすれば良いでしょう？

    スター

  • lang_and_engine 2014/12/25 17:47:23

    怪しい点がいくつか
    
    （１）一つ上のコメントのURL内のサンプルコード中に書きましたように，AppActivateしていますか？
    
    （２）mergeというマクロの実行後，VBS側でSleepしていますか？
    
    （３）そのVBSをCUIで実行してください。思った結果が得られるよりも前に終了してしまっている場合，エラーメッセージが出てくることもあります。なにかエラーメッセージは出てきますか？
    コマンドプロンプトで
    cscript a.vbs のように実行します。出力を確かめてください。

    スター

  • lang_and_engine 2014/12/25 21:05:02

    あとは別の手ですが，
    もし自分が同じ処理を実装するとしたら，プリントスクリーン＋ペイントは不安定になりそうなので使わないですね。
    
    （方法４）VBAマクロで，ブック内のShapeを画像ファイルとして保存する。
    プリントスクリーンは使わない。
    
    選択範囲を画像として保存(高画質) | ヴィーバ VeaBa! Excel VBA Tips
    http://veaba.keemoosoft.com/2013/04/591/

    • Export

    スター

  • keijun5145 2014/12/25 22:30:54

    （１）…AppActivateを記述しましたが、ペイントがアクティブになるのではなく、タスクバー上のペイントのアイコンが黄色？のように点滅するだけでアクティブにはなりません。
    （２）…しています。さらにVBSで実行している（記述している）Batファイルの１行目にもTimeoutを入れています。
    （３）…会社のPCにファイルがあるので、明日確認してみます。
    ※AppActivateがうまくいけばあとはSendkeysで何とかできる気がするのですが…

    スター

  • lang_and_engine 2014/12/26 11:16:37

    最初のコメントに記載したURL内の解説で，下記のようなくだりがあります。
    
    ～～
    
    アプリケーションにキー操作のメッセージを送るためには，そのアプリケーションがアクティブになっている必要がある。
    
    そして，アプリケーションのウィンドウをアクティブにするためには，WSHでは AppActivate を使う。
    
    しかしこの AppActivate は，「ダブルクリック等でスクリプトを起動」という状況ではエクスプローラにフォーカスが行ってしまい，失敗する。
    
    （ファイルを選択してEnterキーを押下した場合も同じ。）
    
    ～～
    
    ということですが，今回はVBSをどうやって実行しているのでしょうか？
    
    →どこにVBSファイルを置いているのか。ダブルクリックでフォルダ上のVBSをじかに起動しているのか（＝アクティブ状態に関連して問題がおきやすい）。それとも，BATやコマプロ上からCUIでWSHを起動しているのか。

    スター

その他の回答

• keijun5145

  2014/12/25 16:35:45

  WScript.Sleepで15秒間を空けてファイルを手入力で保存してVBSがやがて動くようにしたのですが、保存したファイルがVBSで認識できていないのか、VBSの中で起動しているBATファイルがうまくファイルを読んでくれません。

• TransFreeBSD2014/12/25 21:41:58

  ＃なんか言い出しっぺの気がしますので本題の所を...
  
  http://sharp-bang.jp/prog/im.html

  convert clipboard: clip_saved.png
  

  
  

  トリミング(crop)も同時に出来ます。
  http://takuya-1st.hatenablog.jp/entry/20120411/1334169320

  convert -crop 960x720+160+0 clipboard: clipcrop_saved.png
  

  
  

  vbsからは

  Dim WshShell
  Dim saved_filename
  Dim returncode
  Const SHOWMINIMIZED = 7
  Const Convert = """c:\path\to\convert"""
  Const CropSize = "960x720+160+0"
  saved_filename = """c:\other\to\clipcrop_saved.png"""
  
  Set WshShell = WScript.CreateObject("WScript.Shell")
  returncode = WshShell.Run(Convert & " -crop " & CropSize & " clipboard: " & saved_filename, SHOWMINIMIZED, true)
  If returncode <> 0 Then
    MsgBox "convert return code: " & returncode
  End If
  

  こんな感じでしょうか。
  resultが0以外なら、何らかの問題が起きてます。
  こういうのはエラーが起きないよう、またエラーが発生してないかと、状況と結果を逐一確認していく事が中心になります。
  根気よく行きましょう。

  スター

この質問へのコメント

質問の情報

登録日時

2014-12-25 13:09:29

終了日時

2015-01-01 13:10:04

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 音楽のドレミですが、ドイツでは、ABCです（アーベーツェー）。英米でも、ABC（エービーシー）です。イタリ…匿名質問者123時間前
• こんなものありますか？　ダイソーの「吊り下げワイシャツ収納」みたいなもの。これは、入れるところが、５…匿名質問者1日前
• 【次の予想は定理か】位数３の体上のn次元ベクトル空間に於いて、その零でない相異なる(n+1)個の元の組Vを{…くろょ1日前
• 英語等の先生など外国語の指導者の方、また、帰国子女の方、お伺いさせてください。外国語は外国語として理…匿名質問者20時間前
• 再帰動詞と代名動詞は、おなじですか？　フランス語では違うけれど、スペイン語やイタリア語では同じ？とい…匿名質問者1日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ