![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
6年程前に、市販のBVA参考書をベースに、PCでアルバム閲覧Softを自作する折、デジカメの***.JPGの撮影日時を読み込むVBA_codeに手こずり、この「教えてGoo」でいろいろヒントを頂いて、完成できました(多謝)。
**現在、当時のWindows8から、Windows11 Proに移行中で、一か所、VBA_Codeで苦戦中です。
画像4枚を貼りました。VBA_UserForm1のListBox1で、写真リスト番号2389が、番号23と表示されて、下2桁の89が隠れてしまいます。一か所書き換えればと思いますが、どのCodeを書き換えれば良いか見当がつきません。 **** 何かヒントを頂ければ幸いです。****
まず、VBA_Codeを足ります。あと画像3枚を追加添付します。
********** VBA_UserForm1、ListBox1 のCode
' *** UserForm1 code
' Universal Dim
Dim Fname As String
Dim RowPos As Integer
Dim zycount As Integer
Private Sub Frame1_Click()
End Sub
Private Sub Image1_Click()
End Sub
Private Sub TextBox8_Change()
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
Dim Str1 As String
Dim Str2 As String
' RowPos as integer as Universal
' zycount As Integer as Universal
Worksheets(1).Select
RowPos = 11
zycount = 1
Do
Str1 = Cells(RowPos, 3) ' PhotoName 日本語
Str2 = Cells(RowPos, 2) ' PhotoName カメラ連番FileName xxx.jpg
ListBox1.AddItem (zycount)
ListBox1.List(zycount - 1, 1) = (Str1)
RowPos = RowPos + 1
zycount = zycount + 1
Loop While Str2 <> ""
'
ListBox1.RemoveItem RowPos - 12
'setting Initial Photo=The last
On Error GoTo ErrorHandler
ListBox1.Selected(RowPos - 13) = True 'ListBox1_Clickと等価 一番最後にセット
' ListBox1.Selected(0) = True 'ListBox1_Clickと等価 一番最初にセット
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom
Exit Sub
ErrorHandler:
MsgBox "表示する写真が一枚も登録されていません" & vbCr & vbCr & _
"「写真追加作業」で、写真を登録してから、写真閲覧ボタンをクリックしてください。"
End
End Sub
Private Sub CommandButton1_Click()
Unload Me
UserForm2.Show
End
End Sub
Private Sub ListBox1_Click()
Dim myPath As String
' Dim Fname As String as Universal
' RowPos as integer as Universal
' zycount As Integer as Universal
RowPos = ListBox1.ListIndex + 11
With Worksheets(1)
myPath = .Cells(RowPos, 1)
' myPath = "C:\Users\ZY\Documents\柳澤写真\20xy年"
Fname = .Cells(RowPos, 2) '写真番号 xxx.jpg File Name
TextBox6.Value = .Cells(RowPos, 3) 'Photo Name
TextBox3.Value = .Cells(RowPos, 4) 'Date
TextBox4.Value = .Cells(RowPos, 5) 'Place
TextBox5.Value = .Cells(RowPos, 6) 'Memo
TextBox1.Value = .Cells(RowPos, 7) 'Camera
TextBox2.Value = .Cells(RowPos, 8) 'Size
TextBox8.Value = myPath & " \" & Fname 'Photo Address"
End With
Fname = myPath & "\" & Fname
Image1.Picture = LoadPicture(Fname) '写真表示
End Sub
Private Sub CommandButton2_Click()
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeClip
Image1.Picture = LoadPicture(Fname)
End Sub
Private Sub CommandButton3_Click()
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(Fname)
End Sub
Private Sub TextBox1_Change()
Worksheets(1).Cells(RowPos, 7) = TextBox1.Value 'カメラ
End Sub
Private Sub TextBox2_Change()
Worksheets(1).Cells(RowPos, 8) = TextBox2.Value 'サイズ KB
End Sub
Private Sub TextBox3_Change()
Worksheets(1).Cells(RowPos, 4) = TextBox3.Value '更新・撮影日時
End Sub
Private Sub TextBox4_Change()
Worksheets(1).Cells(RowPos, 5) = TextBox4.Value '撮影場所
End Sub
Private Sub TextBox5_Change()
Worksheets(1).Cells(RowPos, 6) = TextBox5.Value 'メモ
End Sub
Private Sub TextBox6_Change()
Worksheets(1).Cells(RowPos, 3) = TextBox6.Value 'Revised Photo Name
ListBox1.List(ListBox1.ListIndex, 1) = TextBox6.Value 'Revised Photo Name
End Sub
Private Sub ExitBtn_Click()
Unload Me
Application.Quit
'/// AutoOpen.Show
End
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Unload Me
Application.Quit
End
End If
End Sub ***以上 2023/10/11 PLSヘルプme
![「Windows 11 Pro での、VB」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/0/542447596_65256f8a8f155/M.jpg)
No.1ベストアンサー
- 回答日時:
こんにちは
コードはどこがどうなっているのかわからないので、見ていませんけれど・・
添付の画像の
>Fontのサイズを10から26に変えると、リスト番号が~~
を読む限り、単純にリストの列幅が足りないだけと思われます。
文字サイズが小さければきちんと表示できるということなので、指定フォントで必要な文字数を表示できる幅を確保していないだけではないのでしょうか?
リストボックスの列幅は、ColumnWidths属性で設定可能です。
https://learn.microsoft.com/ja-jp/office/vba/lan …
fujillin様
分かりにくい質問に、ご回答頂き、ありがとうございます。
オブジェクトの表示画面で、ListBox1のWidth=430.3で、Font=26でも、写真名を全部表示できる、十分なスペースを設定してあります。
現在の不明点は、幅=430.3に、行番号と写真名が表示されていますが、
何が、行番号と写真名にスペースを分け与えているのかです。
*プロパティー_ListBox1では、この配分を操作できる項目はありません。
**VBAのデフォルト値で、配分が決まっているのでしょうか?
***自分のCodingでコントロールできるのでしょうか? /以上
No.2
- 回答日時:
No1です。
>**VBAのデフォルト値で、配分が決まっているのでしょうか?
調べてはいませんが、デフォルトは多分均等割りではないでしょうか?
(テストしさえすれば、わかることと思います。)
>***自分のCodingでコントロールできるのでしょうか? /以上
No1の回答で、列幅を指定するように回答したつもりですけれど?
回答を読む気などないのなら、無駄ですのでこれにて・・・
fujillin様
早速、重ねて、ご回答頂き、ありがとうございました。
やっと、ListBox1のプロパティの、Widthではなく、ColumnWidthsの指定変更で、望みの行番号スペースを確保できました。
ColumnWidthsに触るのは、初めてでした。
7年振りのVBAで、新ワイドモニターに合わせて、写真を表示するなど、VBA修正にまだ混乱しております。また不明の点が解決できなかったら、ご教授をお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) EXCEL VBA シート貼り付け 3 2021/11/15 12:33
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) 条件をつけてカウントする 4 2021/12/19 20:27
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
- Visual Basic(VBA) シートごとに 個数と集計 2 2021/10/25 22:00
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Visual Basic(VBA) サブフォルダ含むすべてのフォルダの Excel 検索 4 2021/12/13 09:33
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
VBA コード
Visual Basic(VBA)
-
-
4
excelのVBAで画像の動作をさせるため、プログラムを教えてください。
Visual Basic(VBA)
-
5
引数に数値、文字列の混在
Visual Basic(VBA)
-
6
エクセルVBAでデータ転記
Visual Basic(VBA)
-
7
Cellsのコードが打てません
Visual Basic(VBA)
-
8
マクロについて質問です。 セルの内容をクリアするコマンドボタン(AX) を作成しました。 指定範囲が
Visual Basic(VBA)
-
9
VBA ファイル名取得
Visual Basic(VBA)
-
10
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
11
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
Visual Basic(VBA)
-
12
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
Visual Basic(VBA)
-
13
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
14
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
-
15
リストボックス複数選択抽出方法
Visual Basic(VBA)
-
16
クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう
Visual Basic(VBA)
-
17
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
18
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
vab パソコンが変わってPageSetupが合わなくなりましたので教えてください
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カメラアプリ「Open Camera」の...
-
この白い線はなんでしょうか。
-
今は撮り鉄をやめた人々
-
旦那に自分の卑猥な姿の写真を...
-
御堂筋イルミネーションの撮影
-
【オナニーのおかず】写真見て...
-
高2男子です。最近、お◯にーを...
-
彼女の写真で抜くのはおかしいか
-
彼氏が裸の写真を欲しがるので...
-
高齢者の生きがい
-
チンコについて
-
男性にお聞きしたいです LINEの...
-
彼にエッチな写真を送りました
-
ラミネートを剥がす方法を教え...
-
付き合って4か月の彼氏がいます...
-
別に付き合いたいとかはないけ...
-
彼氏に自分の裸写真を友達に見...
-
これは何ですか? 時々黒い粒が...
-
「※写真はイメージです。」に決...
-
男の人に聞きます! ラインのア...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サーキットでの撮影について 先...
-
二度目の質問なのですが、 子供...
-
カメラアプリ「Open Camera」の...
-
子供たちが小さかった頃の写真...
-
旅行で撮影した写真の建物や特...
-
防犯用に歩いている状態で撮影...
-
撮影した写真の一部にボカシを...
-
本で見るオリオン座大星雲はピ...
-
この白い線はなんでしょうか。
-
町中の写真。盗撮?
-
今は撮り鉄をやめた人々
-
旦那に自分の卑猥な姿の写真を...
-
Windows 11 Pro での、VBAのCod...
-
自分の私物を写真撮る前に取ら...
-
google photについて
-
log撮影について。今まで、9割...
-
自分はカメラが好きですが風景...
-
Teamsというアプリなんですが間...
-
クリスマスに、東京行ってハチ...
-
GALAXY S22 ultra で撮影した写...
おすすめ情報
追加画像1
追加画像2