표(셀)에 맞게 사진 삽입하기

AutoHotKey

표(셀)에 맞게 사진 삽입하기

쵸코난 2023. 3. 16. 11:16

관련: 지식인

파워포인트 표(테이블)의 특정 셀에 사진이나 그림을 삽입하고 싶은 경우

셀의 크기에 정확히 맞춰서 삽입하는 기능입니다.

VBA로 충분히 해당 기능을 만들어서 사용할 수 있지만

매크로 파일을 권한 허용해서 여는 과정이 번거로울 수 있어

바로 단축키로 실행할 수 있게 AutoHotKey로 만들어 보았습니다.

첨부한 exe파일을 실행하고 확인을 누르면 상태표시줄로 최소화됩니다.

이제 파워포인트 슬라이드에서 표의 특정 셀을 선택하고 F3 또는 F4를 누릅니다.

그 다음 원하는 그림파일을 선택하면 셀에 맞게 그림을 삽입해줍니다.

F3은 현재 셀에 맞게 원본 그림의 가로/세로를 늘려서 삽입하고

F4는 가로:세로 비율을 유지한 채로 셀에 맞게 삽입합니다.

아래 실행화면을 참고하세요.

현재 셀에 기존에 이미 사진이 있으면 삭제하고 삽입합니다.

테두리에 여백 1px을 두고 삽입합니다.

PPTInsertPicture_1.exe 이라는 파일명을 PPTInsertPicture_5.exe 로 바꾸면 5px로 여백이 늘어납니다.

Win+X를 누르면 종료합니다.

아래는 AutoHotKey v1.1 기준의 소스입니다.

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
CoordMode, Pixel, Screen
#SingleInstance

sName := % SubStr( A_ScriptName, 1, -4)
StringSplit, tmp, sName, _

if ( tmp2 = "") {
	m := 0
}
else {
	m := tmp2
}

MsgBox, 0x40, PPTInsertPictureInCell, Press <F3>/<F4> to insert a picture with margin(%m%px) in the current cell of the table.`n`n
 - <F3> to strecth image width/height `n - <F4> to keep the aspect ratio`n`nPress <Win+x> to quit.
	StringLeft, Ver, A_OSVersion, 7
	if (Ver >= "10.0.22") {
		Id := 325
	} else {
		Id := 327
    }
	Menu, Tray, Icon, shell32.dll, %Id%
	Menu, Tray, Tip, <F3>/<F4> to insert a picture in cell  [Win+X]: Exit
	Menu, Tray, NoStandard
	Menu, Tray, Add, Exit, ExitMenu
	return


$F3::
$F4::
 	ppt:=ComObjActive("PowerPoint.Application")
	ppt.Visible := True
	IfWinActive, ahk_exe PowerPnt.EXE
	{

		;find current cell
		try {
			tShp := ppt.ActiveWindow.Selection.ShapeRange(1)
			r := tShp.Table.Rows.Count
		}
		catch e {
			MsgBox Select a table cell first.
			return
		}
		Found := false
		Loop %r%
		{
			c := tShp.Table.Columns.Count
			Loop %c%
			{
				;MsgBox % tShp.Table.Cell(r, c).Selected
				if (tShp.Table.Cell(r, c).Selected = true) {
					Found := true
					break 2
				}
				c--
			}
			if(Found = true) {
				break
			}
			r--
		}
		;MsgBox ( %r% , %c%  ) , %Found%

        if(Found = false)
			return

		;Select an image
		path := ppt.ActivePresentation.Path . "\"
		;sFile := ppt.GetOpenFilename("Image File, *.jpg; *.png; *.gif; *.emf; *.svg")
		FileSelectFile, sFile, 1, %path%, Select image, Image File ( *.jpg;*.png;*.gif;*.emf;*.svg)
		if (sFile = "") {
			return
		}

		;delete old images if any
		sld := tShp.Parent
		i := sld.Shapes.Count
		shLeft := tShp.Table.Cell(r,c).Shape.Left
		shTop := tShp.Table.Cell(r,c).Shape.Top
		shWidth :=tShp.Table.Cell(r,c).Shape.Width
		shHeight := tShp.Table.Cell(r,c).Shape.Height
		;MsgBox % shLeft  shTop
		Loop, %i%
		{
			cShp := sld.Shapes(i)
			;13 = msoPicture
			if (cShp.Type = 13) {
				If (cShp.Left >= shLeft and cShp.Left + cShp.Width <= shLeft + shWidth and cShp.Top >= shTop and cShp.Top + cShp.Height <= shTop + shHeight) {
					cShp.Delete
				}
			}
			i--
        }

		;m := 5
		shp := tShp.Table.Cell(r,c).Shape
		pLeft := shp.Left + m
		pTop := shp.Top + m
		pWidth := shp.Width - m * 2
		pHeight := shp.Height - m * 2
		;MsgBox, % pLeft "," pTop "," pWidth "," pHeight

		;insert the image
		pShp := sld.Shapes.AddPicture(sFile, 0, 1, pLeft, pTop, pWidth, pHeight)

		;Keep the ApectRatio of the picture
		if (A_ThisHotkey = "$F4") {
			pShp.ScaleWidth(1, true)
			pShp.ScaleHeight(1, true)
			pShp.LockAspectRatio := true
			if (pShp.Width > pShp.Height) {
				pShp.Width := pWidth
				if (pShp.Height > pHeight) {
					pShp.Height := pHeight
				}
			}
			else {
				pShp.Height := pHeight
				if (pShp.Width > pWidth) {
					pshp.Width := pWidth
				}
			}
			pShp.Left := pLeft + (pWidth - pShp.Width)/2
			pShp.Top := pTop + (pHeight - pShp.Height)/2
		}
        SplitPath, sFile, name
		pShp.Name := name

		ppt:=""
	}
	return

ExitMenu:
#x::
	ExitApp

소스와 실행파일 첨부합니다.

PPTInsertPicture_1.ahk

0.00MB

PPTInsertPicture_1.exe

0.83MB

이번에는 파일을 불러오는 대신 클립보드 이미지를 붙여넣는 경우입니다.

첨부한 PptPastePicture_0.exe 를 다운로드 하고 실행하세요.