1 / クリップ 1, 回答 ⇒Windows7で VB6 / VBA の SendKeys の問題について - アプリ仮想化奉行 ⇒SendInputにてキーを送る - Yahoo知恵袋 などが参考になるでしょうか？ 追記① SendInputでペイントを操作する . Sendkeys"(^a)",wait ・当該セキュリティ設定(UAC)を無効にする（非推奨） ⇒SendInputにてキーを送る - Yahoo知恵袋 2 / クリップ 参考⇒セル範囲を画像としてコピーする(CopyPictureメソッド)｜Excel VBA, 上記の記事内に、以下のような記載があります。 「まゆみ1101」というユーザー名です！, 次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。, 理系夫婦の方程式(りけいふうふのほうていしき)です。理系夫婦による初めての雑記ブログ, Excel-VBAでWordの画像を一括保存する（ペイント使用、SendKeys操作）, Set wdApp = CreateObject("Word.Application"), Set wdDoc = wdApp.Documents.Open(Range("D5").Text), With Application.FileDialog(msoFileDialogFolderPicker), Application.Wait Now + TimeValue("00:00:02"), https://www.moug.net/tech/exvba/0150016.html. そうであれば普通に貼り付ければいいのになぜ一旦ペイントに貼り付けるのでしょう？
Dim v,a,c,F4 これがコードが長く見ずらい原因となっていますので、以下のサンプルコードのように関数化して使用すると操作が多少楽になります。, 「エラーの原因や回避策は後回しでいいから、とにかく目的が実現したいのだ！」 2016年に長女を出産。
手元にExcel2003が無いので動作するか未確認ですが、CopyPictureメソッドはあるようなので動作するのではないでしょうか。, 貼り付け後のサイズやら何やらが違ったりするのは全く考慮していませんし、その辺を貼り付け後に調整するならもう少しコードに工夫が必要ですが参考まで。, 貼り付け先の列数が足りず、図で張り付け縮小させようとしていました。 SendKeys"(^v)",wait といった回避策があるようです。, さしあたり 今回は、貼り付け先を工夫して、セルでコピーできるようにしていきます。, ペイントを起動し、セル範囲を貼り付けするまでを記載してみました。 ・SendInputを利用する かなり難しいことに挑戦されていると思われますので、まずはVBAに関する基礎知識を習得することをお勧めします。, これまでなんどもSendKeysを使ってきましたが、このエラーが発生したことはないですね。。, でも「sendkeys vba 実行エラー 70」で検索するといろいろでてきました。, どうやらWindowsVista以降のセキュリティ強化の影響のようで、 ３箇所構文ミスがありますし、何より選択したセルをコピーするところがないんですが。
Sheet("データ収集”）.select （ツール開発、記事執筆など）
大学、大学院（修士）で物理を専攻。
という状況なのかもしれないので、別方向からのアプローチも提案してみます。, 下記参考サイトですが、これは質問者さんの環境ではエラーとなったというCopyPictureメソッドの解説ページです。 ちなみに、１つの操作ごとにSendInputを実行（計4回SendInputする）でも同じ結果が得られます。, 非常に長いコードに見えますが、操作用の配列の中身は「入力キー」と「キーアップ/ダウン」の部分しか変更しておらず、他は同じ内容を毎回記述しています。 「CrowdWorks（クラウドワークス）」でお仕事受け付けております！
Application Wait Now+TimeValue("0:00:01") これができると、手間も少なく良かったのですが無理なようです。 ＞Excel 2007以降の［ホーム］タブ→［貼りつけ］→［図］→［図としてコピー］の機能、 会社で設備付けパソコンのため、アップデートはしていません。 1 / クリップ 他のアプリケーションを起動する最も簡単な方法の一つはShell関数です。 Shell関数は、引数で指定した実行形式ファイルを起動します。 Sub Sample1() Dim rc … Sheet("データ収集”）.select ExcelのVBAでWord内の画像を一括保存するツールを作ってみました。 紆余曲折を経て、ペイントを使用して名前を付けて保存する方法にたどり着きます。SendKeysでペイントを操作します。手こずった点を説明していますので、参考にしてください。 参考になれば幸いです。, 2019/01/21 12:22 編集, 回答 ここでは、VBAで他アプリを起動したり、そのアプリを操作したりするテクニックをご紹介します。 Shell関数でアプリケーションを起動する . などが参考になるでしょうか？, といった具合に、各キーのキーダウン、キーアップのタイミングを考慮しながら操作用の配列を作成し、それをまとめて実行する、といった手順になります。 rc=Shell("mspait.exe".VbNormalNoFocus) 『実行エラー ７０ 書き込みできません』で止まります。, Dim rc As long 0, 回答