【例子】加圖片在 Comment 內

nbqmdzlcdint

楼主辛苦了

努力加油学习中

wingpei

漏了两行.
我试过下面可以.
Option Explicit
Const ImgFileformat = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg)," & "*bmp;*gif;*.tif;*.jpg;*.jpeg"

Sub AddPicturesToComments()

Dim HasCom
Dim Pict As String
Dim Ans As Integer
Set HasCom = ActiveCell.Comment
    If Not HasCom Is Nothing Then
    ActiveCell.Comment.Delete
    Set HasCom = Nothing
    End If

GetPict:
    Pict = Application.GetOpenFilename(ImgFileformat)
    If Pict = "False" Then
    Ans = MsgBox("Open : " & Pict, vbYesNo + vbExclamation, "Use this Picture?")
    If Ans = vbNo Then GoTo GetPict
    Else
    With ActiveCell
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.Fill.Transparency = 0#
        .Comment.Shape.Fill.UserPicture Pict
        .Comment.Shape.LockAspectRatio = msoTrue
        .Comment.Shape.Height = 30#
    End With
    ActiveCell.Select
    ActiveCell.Comment.Shape.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
    ActiveCell.Comment.Shape.ScaleHeight 4, msoFalse, msoScaleFromTopLeft
    End If
   
End Sub

820211639

{:soso_e100:}

820211639

{:soso_e100:}

aousbt

楼主的语句没有句读，没看懂。好在第二页有个朋友格式很清晰。
非常感谢！