- ベストアンサー
エクセルVBAでの画像ファイル取得の順番
VBAについての質問です。 http://hp.vector.co.jp/authors/VA033788/kowaza.html#0158 上記(↑1)をベースに、こちら(↓2)で教えていただいて http://okwave.jp/qa4443857.html ファイルを作りました。 画像ファイル取得順についてなのですが、 ベースになっている(1)の時点で既に、 元ファイル名「1」「2」「3」「4」「5」を読み込むと 「5」「1」「2」「3」「4」の順、 元ファイル名「01」「03」「07」「10」「15」を読み込むと 「15」「01」「03」「07」「10」の順、 つまり一番最後に来て欲しい画像だけが一番前に、 その他は順番に読み込まれます。 (画像の制作日時・保存日時などはバラバラです。) 今のままでも、マクロを使わない時に比べて随分早く仕事が進みますので 満足はしているのですが、毎回毎回「一番最後の画像を一番前に持ってきて、その後の画像をずらしていく」という作業をしているため、 マクロでどうにかならないかな〜と思っています。 どなたかご教授下さい。宜しく御願い致します。
- みんなの回答 (4)
- 専門家の回答
関連するQ&A
- エクセルVBAでの画像ファイル名取得他
VBAについての質問です。 http://hp.vector.co.jp/authors/VA033788/kowaza.html#0158 上記をベースに、なんとかVBAを下記のように書き換えました。 Sub LoadPictures3() Dim Fnames As Variant Dim Fn As Variant Dim i As Integer Dim Pic As Picture Dim R As Range Dim R2 As Range Dim Pc As Integer Fnames = Application.GetOpenFilename("図(*.jpg;*.gif),*.jpg;*.gif", MultiSelect:=True) If TypeName(Fnames) = "Boolean" Then Exit Sub Application.ScreenUpdating = False '一枚目の貼付け位置 Set R = Range("B5") Set R2 = R.Offset(35) Pc = 0 For i = 1 To UBound(Fnames) Set Pic = ActiveSheet.Pictures.Insert(Fnames(i)) Select Case (i - 1) Mod 4 + 1 Case 1 Pc = Pc + 1 If Pc >= 2 Then ActiveSheet.HPageBreaks.Add R2 End If With R Pic.Left = .Left Pic.Top = .Top Pic.Width = 300 Pic.Height = 225 End With Case 2 With R.Offset(0, 6) '一枚目に対する二枚目の相対位置 Pic.Left = .Left Pic.Top = .Top Pic.Width = 300 Pic.Height = 225 End With Case 3 With R.Offset(18, 0) Pic.Left = .Left Pic.Top = .Top Pic.Width = 300 Pic.Height = 225 End With Case 4 With R.Offset(18, 6) Pic.Left = .Left Pic.Top = .Top Pic.Width = 300 Pic.Height = 225 End With '次ページの相対位置 Set R = R.Offset(39) End Select Next Application.ScreenUpdating = True End Sub ここで、画像の上の位置(B5のセル位置の画像の場合、B4)に 元々の画像ファイル名を取得し、表記させたいのですが 調べた所、multiselect:=Trueで複数ファイルを選択するときに 画像名が図1、図2に変わっているようで、どうしていいかわかりません。 後、画像を300×225の「変倍」画像にしたいのですが どのようにすれば可能でしょうか? 全くVBAの知識がなく、上のURLを参考に、単語を調べつつ書き換えている状態で、変数やらなんやらの指定・書き方等わかりません。 どなたかご教授願います。
- ベストアンサー
- オフィス系ソフト
- 一括文字列置き換えツールで画像も変換してしまい困っています
一括文字列置き換えツール Version1.03 http://hp.vector.co.jp/authors/VA007941/tool/index17.html でHPのアドレスを変えたので一括変換をしたところ画像も変換されてしまい、画像やファイルがこわれて表示できなくなったり使い物にならなくなってしまいました。 これを元に復元したいのですがどうしたらよいでしょうか? 回答おねがいします(o*。_。)o
- 締切済み
- フリーウェア・フリーソフト
- 隠しページに使いたいのですが、画像を埋め込むソフトの使い方
すみません。 こういう質問はそこのURLへ行って質問すればいいのですが、BBSが置いてないみたいなのでこちらでどなたか教えて下さい。 隠しページのLINK先を画像埋め込みソフトで使用したいと思っているのですが、 (例えば「ステガノグラファー」http://hp.vector.co.jp/authors/VA017815/) これは画像の裏に画像なりtextを隠すソフトですよね? それを埋め込み名前を付けて保存すると、PSPファイルになってしまうのです。 多分うちのPCにペイントショッププロのソフトが入っているのでそういうファイルになってしまうのだと思うのですが、それをとりあえずGIFなりJPGにして使えばいいのでしょうか? そして、訪問した方達は、その画像をどのようにして裏画像を見つけるのでしょうか?
- ベストアンサー
- その他(インターネット・Webサービス)
- HTMLファイル取得
VBであるサイトのhtmlファイルを取得したいと思っています。 下記のURLを参考にして ttp://hp.vector.co.jp/authors/VA014315/vbdown.htm DownLoadFile("http://www.tibia.com/statistics/?subtopic=whoisonline&world=Amera","C:\test.html") このようにFormから呼びだしています。 色々なURLで試したんですが、それらはうまくいくのですけど、このURLではうまくいきません。 原因と対処法がわかる方よろしくお願いします。 別のアプローチでこのhtmlファイルが取得できる方法を知っていらっしゃる方もよろしくお願いします。
- ベストアンサー
- Visual Basic
- ファイルの順番
フォルダの中のファイルを決まった順番に並べたくてファイル名の前に番号を付けたのですが「名前順に整列」をクリックすると1の次は21になります。並べたい順にする方法を教えてください。
- ベストアンサー
- Windows XP
- デジタルカメラ画像ファイル名を撮影日時順の連番でつけなおす方法
WindowsXPでデジカメ画像を読み込む際に、 撮影日時がずれて連番が振られて保存されてしまいました。 WindowsXPのファイルエクスプローラで、撮影日時を表示、ソートして、ファイル名を連番をつけて(#3#.jpgにして)一括変換してみたのですが、撮影日時のソート順に連番はつけられず、ファイル名のソート順で連番がつけられてしまいます。 どうしたら、撮影日時順に連番が振られるようになりますか?? よろしくお願いします。
- ベストアンサー
- デジタルカメラ・フィルムカメラ
- Excel97VBA
Excel97のVBAでマクロを作っています。 1.xlsというファイルを、2.prn(スペース区切りテキスト)で保存し、再度1.xlsというファイルで元のファイルに上書き保存したいのですが、1というファイル名を任意に変更したいので、保存形式とファイル名を元のファイルと同じにして元のファイルに上書きする、ということは可能でしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルに画像(JPG)を取り込む作業を簡単にしたい!!
エクセルに画像(JPG)を取り込むときに、その画像のファイル名をセルに入力するとその画像が取り込めますか?? 毎回、挿入から画像のある場所を指定してやっているととっても時間がかかります・・・。 簡単にできる方法はないでしょうか?? マクロがわからないので、やさしく教えてもらえると助かります。
- ベストアンサー
- その他(ソフトウェア)
- PIXIA用フィルタ画像透明化が使えません!
PIXIA用フィルタ画像透明化が使えません! こちらのサイトで配布されているフィルタなのですが どうやったら使えるのかよく分かりません http://hp.vector.co.jp/authors/VA023468/filter.htm 解凍してでてきた「trans_a」フォルダを Pixiaフォルダの「filter」にいれたのですが パレットパネルのフィルタでは使用できないと 書いてあり、どうすればいいのやら判りません どなたか教えてください…
- ベストアンサー
- フリーウェア・フリーソフト
- 画像の選択画面で表示の順番が変わってしまった
ブログや掲示板に画像を投稿する時に画像を選択する画面で、画像の順番が今まではファイル名で並んでいたものが、画像サイズの順番に並ぶようになってしまいました。 画像加工ソフトなどで、加工して保存する時に対象のフォルダの中にある画像が表示されますが、それも画像サイズ順にならんでいます。 その画像が入ってるフォルダ自体の表示順はファイル名の順番になっています。 エキスプローラーなどでフォルダを開いた時の画像の表示順はファイル名順です。 試しにフォルダ内の画像の表示順をファイル名や時間、サイズなど色々変えて戻したりもしてみましたが、ブログ投稿の時に出る選択画面ではサイズ順でしか並びません。 どなたかこのなおし方をお教えください。 よろしくお願いします
- ベストアンサー
- Windows XP
お礼
回答ありがとうございます。 御礼が遅れましてすみません。 試してみたところ、1の方法で無事解決しました! 選択順が関係するとは思ってもいませんでした、 詳しく教えていただきましてありがとうございます。 いつか、もう少しマクロがわかるようになったら、 2などの方法も考えてみようと思います。 本当にありがとうございます!