Рет қаралды 6,525
#VBA100本ノック 29本目
ファイル選択ダイアログで画像ファイルを指定し、その画像をアクティブセルにリンクしない図として貼り付けてください。
貼り付けた画像は、縦横比を維持したままセル内に収めてください。
セル内の位置はなるべく真ん中に。
※選択できる拡張子は適当に。
<動画内で紹介したコード>
Option Explicit
Sub test1()
ActiveSheet.Shapes.AddPicture "C:\29本目\部長.png", False, True, 0, 0, -1, -1
End Sub
Sub test2()
Dim rng As Range
Set rng = ActiveCell
Dim sPath As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
sPath = .SelectedItems(1)
End With
Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddPicture(sPath, False, True, rng.Left, rng.Top, -1, -1)
If rng.Width > rng.Height Then
sp.Height = rng.Height
Else
sp.Width = rng.Width
End If
sp.Top = rng.Top + (rng.Height - sp.Height) / 2
sp.Left = rng.Left + (rng.Width - sp.Width) / 2
End Sub
◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
<ブログ>
wachi-yon.jp/vba100/029/
次回の動画(30本目)
• 【VBA】ループを組み立てましょう!~VBA...
<チャンネル紹介>
ExcelやVBAを中心にゆるく紹介する素人チャンネルです
<参考サイト>
Excelの神髄さん 「VBA100本ノック29本目」
excel-ubara.com/vba100/VBA100...
<音楽・効果音>
甘茶の音楽工房 さん
amachamusic.chagasi.com/terms...
効果音ラボ さん
soundeffect-lab.info/sound/an...