Marty에는 일련의 통합 문서가 있으며 일부에는 50 개의 워크 시트가 있습니다. 그는 그래픽 (회사 로고)을 각 워크 시트의 같은 위치에 붙여 넣어야합니다. 그는 모든 워크 시트를 선택한 다음 붙여 넣기를했지만 일반 편집처럼 여러 워크 시트에서 작동하지 않는 것 같습니다.

마티가 옳다. 여러 워크 시트를 선택한 경우 그래픽을 붙여 넣으려고하면 작동하지 않습니다. 시도하면 Excel에서 붙여 넣을 수 없다는 메시지가 표시되지만 단일 워크 시트 만 선택하면 매우 멋지게 붙여 넣을 수 있습니다.

대신 매크로를 사용하여 붙여 넣어야합니다. 그래픽이 이미 클립 보드에 복사되었다고 가정하면 다음과 같은 매크로를 실행할 수 있습니다.

Sub InsertLogo1()

Dim shtSheet As Worksheet

Application.ScreenUpdating = False     For Each shtSheet In Worksheets         With shtSheet             .Activate             .Range("A1").Select             .Paste         End With     Next     Set shtSheet = Nothing     Application.ScreenUpdating = True End Sub

매크로는 통합 문서의 각 워크 시트를 단계별로 실행하고 그래픽을 A1 셀에 붙여 넣습니다. 다른 셀을 사용하려면 셀을 선택하는 선을 수정하기 만하면됩니다.

미리 그래픽을 클립 보드에 복사하지 않으려면 다음과 같은 매크로를 사용하여 이미지 파일에서 직접 그래픽을 삽입 할 수 있습니다.

Sub InsertLogo2()

Dim strPath As String     Dim shtSheet As Worksheet

strPath = "C:\GraphicFolder\PictureName.bmp"



For Each shtSheet In Worksheets         shtSheet.Activate         Range("A1").Select         ActiveSheet.Pictures.Insert (strPath)

Next shtSheet     Set shtSheet = Nothing End Sub

물론 그래픽 파일의 경로와 파일을 워크 시트에 붙여 넣는 셀을 수정할 수 있습니다. 원하는 경우 표준 Windows 대화 상자를 표시하는 다음 변형을 사용하여 삽입 할 그래픽을 선택할 수 있습니다.

Sub InsertLogo3()

Dim strPath As Variant     Dim shtSheet As Worksheet     Dim sTemp As String

' Set the file type     sTemp = "Graphics Files (.jpg; .bmp; .gif; .tif; *.png)"

sTemp = sTemp & ", .jpg; .bmp; .gif; .tif; *.png"

strPath = Application.GetOpenFilename(sTemp)

If strPath <> False Then         For Each shtSheet In Worksheets             shtSheet.Activate             Range("A1").Select             ActiveSheet.Pictures.Insert (strPath)

Next shtSheet         Set shtSheet = Nothing     End If End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (9205)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Pasting_a_Graphic_to_Multiple_Worksheets [그래픽을 여러 워크 시트에 붙여 넣기].