만화경

아래 매그로함수 사용

Sub URLPictureInsert()
'Updateby Extendoffice 20161116
'Update #1 by Haytham Amairah in 20180104
'Update #2 by Haytham Amairah in 20180108

    Dim Pshp As Shape
    Dim xRg As Range
    Dim xCol As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    Set Rng = ActiveSheet.Range("A2:A140")
    For Each cell In Rng
        filenam = cell
        ActiveSheet.Pictures.Insert(filenam).Select
        Set Pshp = Selection.ShapeRange.Item(1)
        Pshp.Placement = xlMoveAndSize
        If Pshp Is Nothing Then GoTo lab
        xCol = cell.Column + 1
        Set xRg = Cells(cell.Row, xCol)
        With Pshp
            .LockAspectRatio = msoFalse
            .Width = 60
           .Height = 30
            .Top = xRg.Top + (xRg.Height - .Height) / 2
            .Left = xRg.Left + (xRg.Width - .Width) / 2
        End With
lab:
    Set Pshp = Nothing
    Range("A2").Select
    Next
    Application.ScreenUpdating = True
End Sub

오늘부터 인증서 각축전…1월엔 민간인증서로 연말정산

news.heraldcorp.com/view.php?ud=20201210000048

삼성전자 R&D 투자 부동의 1위…매출 대비 비중은 네이버가 최고

www.yna.co.kr/view/AKR20201208148100003?input=1195m

공인인증서 '안녕'…본인인증, 연말정산은 어떻게?

www.yna.co.kr/view/AKR20201205036600017?input=1195m

자동로그인

yjshin.tistory.com/entry/windows10-%EC%9C%88%EB%8F%84%EC%9A%B0-%EC%9E%90%EB%8F%99-%EB%A1%9C%EA%B7%B8%EC%9D%B8-%EB%B0%A9%EB%B2%95-%EC%95%94%ED%98%B8-%EC%97%86%EC%9D%B4-%EC%9E%90%EB%8F%99-%EB%A1%9C%EA%B7%B8%EC%9D%B8

자동 켜기 & 끄기

brunch.co.kr/@openmobile/127