Add Photo Comment

  1. 8 bulan yang lalu

    Misi Para Mas Ter.

    Mohon Pencerahan Dari File saya ?
    Bagaimana Cara Memblock Range Itu langsung Add comment Pic. ?
    File saya manual (satu-satu)

    terimakasih.

  2. Caton

    26 Mar 2018 Terverifikasi Indonesia + 12.569 Poin
    Di sunting 8 bulan yang lalu oleh Caton

    @Nobo...

    Coba modifikasi scriptnya menjadi seperti berikut:

    Sub Insert_Photo_commant()
        Dim r As Range
        Dim He As Long, Wi As Long
        
        He = 200
        Wi = 275
        
        For Each r In Selection
            With r
                .ClearComments
                .AddComment ("")
                On Error Resume Next
                .Comment.Shape.Fill.UserPicture r
                .Comment.Shape.Height = He
                .Comment.Shape.Width = Wi
                Err.Clear
            End With
        Next
    End Sub

    Mudah-mudahan sesuai. Demikian.

  3. Nuhun Pisan Mas @Caton

 

atau Mendaftar untuk ikut berdiskusi!