質問1
写真を縦に取り込むには以下マクロをどのように変えたらよいのか?
を教えてください。
質問2
JPGとjpgを取り込むにはどうしたらよいのでしょうか?
Sub test01()
ListUp_FileList ("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures")
End Sub
Sub ListUp_FileList(FolderSpec)
Dim File_Collection As Object
Dim File_List As Variant
Dim cnt As Integer
Set File_Collection = CreateObject("Scripting.FileSystemObject") _
.GetFolder(FolderSpec).Files
cnt = 1
l = 10
For Each File_List In File_Collection
If Right(File_List, 4) = ".jpg" Then
'Range("A" & Format(cnt)) = File_List.Name
ActiveSheet.Pictures.Insert(FolderSpec & "\" & File_List.Name).Select
Selection.ShapeRange.Left = l + (cnt - 1) * 150
Selection.ShapeRange.Width = 130
Selection.ShapeRange.Height = 104
Selection.ShapeRange.Top = 360
cnt = cnt + 1
End If
Next
End Sub
No.2
- 回答日時:
1.への回答
Left
と
Top
の意味を理解してください。
理解できれば、自ずとどこをどのように書き換えればいいか
分かると思います。
2.への回答
UCase
を使ってはいかがでしょう?
回答有り難うございました。
うーん、理解はできてないけど、色々とかえてみたら何とかできました。何となくですが、LeftとTopの意味がわかったような感じです。
どうも有り難うございました。
No.3ベストアンサー
- 回答日時:
> 写真を回転させて縦にしたいのではなく、写真を縦に配列させたいのです。
失礼しました。既に的確なご回答がありますが、参考まで。
■ 1. について
#2 ご回答のとおりだと思います。
■ 2. について
VB(A) は文字列比較において「大文字・小文字」を原則的に区別します。
2. のポイントは「大文字・小文字」を区別しないで文字列を比較する方法
ということになります。
これも #2 ご回答のとおりですが、補足します。
方法1)UCase(または LCase)で大文字(または小文字)に統一して比較する
If Ucase(Right(File_List, 4)) = ".JPG" Then
方法2)StrConv で大文字(または小文字)に統一して比較する
If StrConv(Right(File_List, 4), vbLowerCase) = ".jpg" Then
方法3)StrComp のテキスト比較モード(vbTextCompare)で比較する
If StrComp(Right(File_List, 4), ".jpg", vbTextCompare) = 0 Then
方法4)モジュールの先頭に Option Compare Text を書く
上記の関数の使い方や詳しい意味はヘルプなり、WEB 検索で調べて下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Dateserialで データ抽出 2 2022/06/26 21:07
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Excel(エクセル) マクロ(データ取得と転記)について教えてください 3 2022/12/24 12:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【オナニーのおかず】写真見て...
-
高2男子です。最近、お◯にーを...
-
彼女の写真で抜くのはおかしいか
-
エクセルに貼付けた写真の容量(...
-
自分の若い頃の写真を見せたが...
-
浮気したい相手に、子供の写真...
-
写真写りが悪すぎる、、、
-
パスポート写真の画質が悪いと...
-
「~を写真に撮る」と「~の写...
-
「※写真はイメージです。」に決...
-
男の人に聞きます! ラインのア...
-
僕っておかしいですか? 彼女が...
-
これは何ですか? 時々黒い粒が...
-
iPhoneで、写真の真ん中を切り...
-
男性にお聞きしたいです LINEの...
-
ラミネートを剥がす方法を教え...
-
男性がLINEで顔写真を送ってと...
-
別に付き合いたいとかはないけ...
-
黙って写真を撮る夫の心理を教...
-
マッチングアプリで何度か男性...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【オナニーのおかず】写真見て...
-
高2男子です。最近、お◯にーを...
-
彼女の写真で抜くのはおかしいか
-
浮気したい相手に、子供の写真...
-
ラミネートを剥がす方法を教え...
-
自分の若い頃の写真を見せたが...
-
私は今年還暦の男です!妻、長...
-
エクセルに貼付けた写真の容量(...
-
別に付き合いたいとかはないけ...
-
男の人に聞きます! ラインのア...
-
これは何ですか? 時々黒い粒が...
-
PCで G、Hドライブ(Google dri...
-
僕っておかしいですか? 彼女が...
-
iPhoneで、写真の真ん中を切り...
-
LINEは交換してくれて毎日話し...
-
Excelの画像をセルとして...
-
「※写真はイメージです。」に決...
-
パスポート写真の画質が悪いと...
-
jpeg 写真を縦3×2.5エクセ...
-
脚が太くなった気がしちゃいま...
おすすめ情報