반응형
ி 매크로 실행 단축키 등록
[파일] - [옵션] - [리본 사용자 지정] - [명령선택, 매크로] - [바로가기키, 사용자 지정]
※ [파일] - [옵션] 단축키 : Alt + F + T
[명령 지정,매크로] - [키보드 시퀀스 지정] - [지정]
[명령 지정,매크로] - [키보드 시퀀스 지정] - [지정]
Alt + F8(매크로 설정창), Alt + F11(매크로 코드 편집기)
※ 단축키 설정 백업 파일
C:\Users\사용자이름\AppData\Roaming\Microsoft\Templates Normal.dotm 파일
※ 매크로 설정 파일 추출 - Alt + F11 - 모듈 우클릭 후 파일 내보내기
ி 매크로 모음
모든 이미지의 너비 및 테두리 설정
Sub set_image_width_board()
For i = 1 To ActiveDocument.InlineShapes.Count 'for 문으로 1번째 그림부터 마지막 그림까지
With ActiveDocument.InlineShapes(i)
.Width = CentimetersToPoints(16.5) ' 그림너비 16.5cm로 통일
With .Borders
.OutsideColor = wdColorBlack '그림테두리 검정색
.OutsideLineStyle = wdLineStyleSingle '그림테두리 실선
.OutsideLineWidth = wdLineWidth075pt '그림테두리 두께 0.75pt로 통일
End With
End With
Next
End Sub
모든 이미지의 종횡비(가로 세로 비율) 고정 해제
Sub UnlockAspectRatio()
Dim shp As Shape
Dim ish As InlineShape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Or _
shp.Type = msoLinkedPicture Then
shp.LockAspectRatio = False
End If
Next shp
For Each ish In ActiveDocument.InlineShapes
If ish.Type = wdInlineShapePicture Or _
ish.Type = wdInlineShapeLinkedPicture Then
ish.LockAspectRatio = False
End If
Next ish
End Sub
선택한 이미지의 너비 및 테두리 설정
Sub Selected_image_w_board()
With Selection.InlineShapes(1) ' 가로 종횡비 고정 x
.LockAspectRatio = False
.Width = CentimetersToPoints(16.5)
With .Borders
.OutsideColor = wdColorBlack '그림테두리 검정색
.OutsideLineStyle = wdLineStyleSingle '그림테두리 실선
.OutsideLineWidth = wdLineWidth075pt '그림테두리 두께 0.75pt로 통일
End With
End With
End Sub
선택한 이미지에 캡션 삽입
Sub image_add_caption()
With Selection
.InsertCaption Label:="그림", TitleAutoText:="InsertCaption1", _
Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
.Style = ActiveDocument.Styles("[C1] 본문 그림 캡션")
.HomeKey Unit:=wdLine
.TypeText Text:="["
.EndKey Unit:=wdLine
.TypeText Text:="] 캡션작성"
.MoveUp Unit:=wdLine, Count:=1
.Style = ActiveDocument.Styles("[C1] 본문내용")
End With
End Sub
반응형
'업무 자동화' 카테고리의 다른 글
VBA 메크로 모음2 (0) | 2021.09.30 |
---|---|
윈도우10 드라이브 숨김 배치파일 (0) | 2021.08.16 |
윈도우 컨텍스트 메뉴 설정 배치파일 (0) | 2021.07.27 |
Imagemagick 이미지 작업 스크립트 (0) | 2021.07.20 |
솔루션 제조사별 기본 비밀번호 (0) | 2021.06.09 |