|
カテゴリ:エクセルとパソコン
ここにマクロを書きます
” Sub InsertPictures() Dim imgURL As String Dim pic As Shape For i = 2 To 100 imgURL = Cells(i, 4).Value If imgURL <> "" Then Set pic = ActiveSheet.Shapes.AddPicture(imgURL, False, True, Cells(i, 5).Left + Cells(i, 5).Width, Cells(i, 5).Top, -1, -1) ' 画像のリサイズ pic.LockAspectRatio = msoTrue pic.Height = Cells(i, 5).Height pic.Width = Cells(i, 5).Width ' セルの横幅を調整 Cells(i, 5).Offset(0, 1).ColumnWidth = pic.Width / 7 End If Next i End Sub ”
私はExcelには多少詳しくてもマクロの知識はほとんどありません でも マクロは実行されて写真は無事にExcelに格納されました こんな写真が2390個 全部が 機能性食品です これを エクポンで HTMLサイトに出来たら もちろん 検索機能もつけないと 検索機能もChatGPTで作って貰わないと ですね 本当に凄い時代になったものです。 ほとんどマクロの知識がない 私でも マクロを操れる 私自身が一番吃驚してます。 吃驚 ビックリ びっくり です。 マクロに注釈が入っているので 勉強にも なります。 本当に ChatGPT さま様 です。 お気に入りの記事を「いいね!」で応援しよう
最終更新日
2023.02.18 03:05:02
コメント(0) | コメントを書く
[エクセルとパソコン] カテゴリの最新記事
|