【Excel】 【VBA】 증거 작성을 효율화! 연속 스쿠쇼 붙이기의 수고를 매크로로 삭감

소개



웹 앱 테스트 등으로 스쿠쇼를 몇 장이나 찍어 엑셀에 붙여야 하는 경우가 있습니다.
그 때, 한 장 찍어 붙여 넣은 후, 다음에 붙여 넣는 셀을 매회 선택하는 것이 대단한 번거로움.

  • 마우스 조작을 극복한다.
    논외. 라고 할까, 가능한 한 마우스를 잡고 싶지 않다.
  • 이미지의 크기를 조정하고 [Esc] → [Page Down]으로 다음에 붙여넣을 셀로 이동할 수 있도록 한다.
    무료 스쿠쇼 도구 (예 : WinShot)를 사용하여 매번 동일한 범위를 찍을 수 있습니다.
    그 범위의 크기를 지정해 주면 [Page Down]을 누를 때의 스크롤량에 맞출 수 있습니다.
    하지만 찍고 싶은 이미지가 항상 같은 범위는 아닙니다.

  • 표준 기능에서 적절한 해결 방법을 찾을 수 없기 때문에 매크로를 등록하고 바로 가기 키에 할당하기로 결정했습니다.

    매크로



    요건은 "붙여넣기와 동시에 다음에 붙여넣는 장소에 초점을 맞춘다"움직임입니다.

    이미지의 좌하에서 3행 아래에 포커스를 맞추고, 그 셀이 맨 위에 오도록 스크롤 한 후, 화면의 세로 길이의 절반만 스크롤을 되돌리고 있습니다.
    스크롤 위치를 조정하는 것으로, 지금 붙인 화상과 그 아래 부분을 동시에 볼 수 있도록 하고 있습니다.
    이미지가 올바르게 찍혀 있는지 확인하고 다음에 붙여넣는 부분이 올바른지 확인할 수 있습니다.

    구체적인 코드는 이하.
    Sub AttatchImage()
    
        '画像をクリップボードにコピーしている状態で実行。
        '画像貼り付け後、画像の3行下のセルにフォーカスが当たる。
    
        'クリップボードの画像を貼り付け
        ActiveSheet.Paste
        '「画像の右下のセル」の行の3行下、「画像の左上のセル」の列に移動
        Cells(Selection.BottomRightCell.Row + 3, Selection.TopLeftCell.Column).Select
        '画面の高さの半分をスクロール
        ActiveWindow.ScrollRow = ActiveCell.Row - ActiveWindow.VisibleRange.Rows.Count / 2
    
    End Sub
    

    매크로를 등록하면, 임의의 단축키에 묶어 끝입니다.
    나는 [Ctrl] + [Shift] + [V]로 만들었습니다.
    (Gmail이나 Evernote에서는 '형식을 떼어 붙여넣기'를 의미하므로 혼란하지 않도록 다른 키가 좋을지도 모릅니다.)

    에비던스 파일과는 별도로, 매크로를 넣은 파일을 하나 준비해 두는 것이 좋다고 생각합니다.
    다른 책의 매크로를 실행할 수 있기 때문에 증거 파일에 매크로를 넣을 필요가 없습니다.
    매크로를 사용하고 싶을 때에, 에비던스 파일뿐만 아니라 매크로를 넣은 파일도 열어 두도록 합니다.

    조작방법



    이미지를 클립보드에 복사한 상태에서 붙여넣을 셀을 선택합니다.
    그 상태에서 바로 가기 키를 누르십시오.
    그러면 이미지 하단의 세 줄 아래 셀에 초점이 맞춰지고 셀이 화면 중앙으로 스크롤됩니다.
    이제 바로 다음 이미지를 붙여넣습니다.

    주의점



    매크로로 행해진 조작은 「뒤로」할 수 없기 때문에 주의입니다.
    절차가 굳어진 작업에서 사용하는 것이 좋습니다.

    좋은 웹페이지 즐겨찾기