[VBA] Excel - 그림

1. 그림 삽입

Dim sheet1 As Worksheet
Set sheet1 = Sheets(1)

Dim range1 As Range
Set range1 = sheet1.Range("B2")

Dim file As String 
file = "C:\Test\test.jpg"

Dim shape1 as Shape
Set shape1 = sheet1.Shapes.AddPicture(file, msoFalse, msoTrue, 0, 0, 0, 0)
shape1.Top = range1.Top
shape1.Left = range1.Left
shape1.ScaleHeight 1, msoTrue
shape1.ScaleWidth 1, msoTrue

AddPicure(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

(LinkToFile=msoFalse, SaveWithDocument=msoTrue 로 설정하여 그림을 문서에 완전히 저장)

 

 

2. 그림 개수

Dim sheet1 As Worksheet
Set sheet1 = Sheets(1)

Debug.Print sheet1.Pictures.Count

 

 

3. Sheet 에 포함된 그림 모두 제거

Dim sheet1 As Worksheet
Set sheet1 = Sheets(1)

sheet1.Pictures.Delete

 

 

4. 그림을 다른 Sheet 로 복사

Dim sheet1 As Worksheet
Set sheet1 = Sheets(1)

Dim sheet2 As Worksheet
Set sheet2 = Sheets(2)

Dim picture1 As Picture
Set picture1 = sheet1.Pictures(1)

picture1.Copy
sheet2.Paste sheet2.[B2]

Dim picture2 As picture
Set picture2 = sheet2.Pictures(sheet2.Pictures.Count)
picture2.Visible = 0
picture2.Visible = 1

picture2.Visible 을 이용해 복사 후 외곽선에 남는 선택점 표시 제거