ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】ブック作成、シート名変更、アイコンの挿入をするマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、ブック作成、シート名変更、アイコンの挿入をするマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200325045259p:plain

 

<マクロ実行後>

f:id:gorilla-strong:20200325045458p:plain

猫や犬のアイコンが挿入できました。

 

 

 スポンサーリンク

 

 

ソースコード

Sub アイコン挿入()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets("アイコン")

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

Path = ThisWorkbook.Path




For i = 3 To lastrow

Dim bookname, sheetname As String
bookname = ws.Range("A" & i)
sheetname = ws.Range("B" & i)

Dim newbook As Workbook
Set newbook = Workbooks.Add
newbook.SaveAs (Path & "¥" & bookname & ".xlsx")
newbook.Sheets(1).Name = sheetname


Dim icon As String
icon = ws.Range("C" & i)

newbook.Sheets(1).Pictures.Insert (icon)

With newbook.Sheets(1).Shapes(1)
    .LockAspectRatio = True
    .Height = 500
    .Width = 500
End With



Next





End Sub

 

 

<参照させていただいたサイト>

https://www.moug.net/tech/exvba/0120024.html

http://officetanaka.net/excel/vba/tips/tips174.htm

https://teratail.com/questions/218427

 

 

以上、ゴリラストロングでした。

 

 スポンサーリンク