[VBA] 코드 모음6 - 그림 관련

  

[클릭한 도형에 써져있는 텍스트]

변수 = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

 

  

[도형에 이름부여]

이름을 부여하는 것은..해당도형을 SELECT 하신 후에...

VBA 에서..

Selection.Name = "어떤이름"

 

[병합된 셀 크기에 맞추어 그림 삽입]

Set s = Range("B2").MergeArea

ThisWorkbook.Sheet1.Shapes.AddPicture img, _

True, True, s.Left, s.Top, s.Width, s.Height

 

[그림 넣기]

Set oPicture = Worksheets("Final Result").Shapes.AddPicture(strPictureFilePath _

& C.Value & ".jpg", False, True, rngTg.Left, rngTg.Top + iGappic, 200, 200)

' Final Result 시트에 그림 삽입

' rngTg.Left, : 그림의 왼쪽 위치

'rngTg.Top + iGappic, : 그림의 위쪽 위치

'200 : 임시로 그림 크기 지정

'strPictureFilePath & C.Value & ".jpg" : 현재는 그림 파일이 jpg파일만 있다고 가정함

' 그림 파일 형식이 png, gif 등으로 다양하다면 코드 수정해야함

 

With oPicture '원본 그림 크기로 맞추기

.LockAspectRatio = msoTrue ‘원본비율 유지

.ScaleHeight 1, msoTrue

.ScaleWidth 1, msoTrue

End With