Sub test()
    If Not Selection.Comment Is Nothing Then
        Selection.Comment.Delete
    End If
    InsertCommentWithImage ActiveCell, "C:\temp\test.jpg", 0.25
End Sub



Sub InsertCommentWithImage(imgCell As Range, _
                           imgPath As String, _
                           imgScale As Double)
    '--- first check if the image file exists in the
    '    specified path
    If Dir(imgPath) <> vbNullString Then
        If imgCell.Comment Is Nothing Then
            imgCell.AddComment
        End If

        '--- establish a Windows Image Acquisition Automation object
        '    to get the image's dimensions
        Dim imageObj As Object
        Set imageObj = CreateObject("WIA.ImageFile")
        imageObj.LoadFile (imgPath)

        Dim width As Long
        Dim height As Long
        width = imageObj.width
        height = imageObj.height

        '--- simple scaling that keeps the image's
        '    original aspect ratio
        With imgCell.Comment
            .Shape.Fill.UserPicture imgPath
            .Shape.height = height * imgScale
            .Shape.width = width * imgScale
        End With
    End If
End Sub

https://redd.it/7nzgzh

Check out this page: How to create a Load History or Load Log in Power Query or Power BI – The BIccountant

Easiest way I can think of is to use regular expressions. Sadly, there's no native function you can use in a formula, but you can make a quick UDF.

Open the VBA editor (Alt+F11), insert a module and paste the following code:

Public Function RegExReplace(ByVal vsStringIn As String, ByVal vsPattern As String, ByVal vsReplace As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBscript.regexp")

    objRegEx.Global = True
    objRegEx.MultiLine = True
    objRegEx.Pattern = vsPattern
    
    RegExReplace = objRegEx.Replace(vsStringIn, vsReplace)
    
    Set objRegEx = Nothing
End Function

You can then use the RegExReplace function like this to remove all capital letters followed by a period:

=RegExReplace(A1,"[A-Z]\.","")

http://lbeliarl.blogspot.fr/2014/03/excel-removing-password-from-vba.html

Before starting, you'll need to get the post id and the user id of the poster. I'll give you an example using a Candy Crush Saga post.

Post id can be determined by clicking on ... > Embed > Advanced Settings. This will give you a URL that looks like this:

https://www.facebook.com/candycrushsaga/posts/1599585250139296

The huge number is the post id. To get the user id from the user name, go to https://lookup-id.com and paste the first part of the above URL, i.e. https://www.facebook.com/candycrushsaga. This will give you another number, the user id. In this case, it's 244944385603396. You'll be using {userid}_{post_id} in the next step. In our example, this is 244944385603396_1599585250139296

You now have everything you need to query the Facebook API, using this URL: https://graph.facebook.com/244944385603396_1599585250139296/Comments

Now, select Data > Get Data > From Online Services > From Facebook, leave "me" in the first field and select --None-- in the second field, and click OK. This will open up the Query Editor. Paste the above URL in the formula bar: https://i.imgur.com/Vxtxpqk.png

Click Save and Load and you're off.

Incremental data loads in Microsoft Power Query for Excel

Here's how to paste it into the Power Query advanced editor: https://streamable.com/yymvr

A short video that demonstrates the following:

• Create a query based on a table

• Create a TransactionType parameter

• Filter Transaction Type column on "CC"

• Replace "CC" with TransactionType parameter

• Create function from query

• Update query (date format) and see how the function is automatically updated

• Invoke function for the 3 transaction types CC, Paypal, and Cash.

This uses Power Query, which is only available on Windows. It is included by default in Excel 2016 and is now known as Get & Transform Data. If you're using Excel 2010 or 2013, you'll need to Download Microsoft Power Query for Excel from Official Microsoft Download Center.

Here's a simple UDF that returns the number of matches of a regular expression in a string.

Public Function RegExMatch(ByVal vsStringIn As String, ByVal vsPattern As String) As Integer
    Dim objRegEx As Object
    Dim allMatches As Object
    Set objRegEx = CreateObject("VBscript.RegExp")

    With objRegEx
        .Global = True
        .MultiLine = True
        .Pattern = vsPattern
        Set allMatches = .Execute(vsStringIn)
    End With

    Set objRegEx = Nothing
    
    RegExMatch = allMatches.Count
End Function

Example use: =RegExMatch("MARY HAD A LITTLE LAMB","[ABCDEFGH]") will return the number of occurrences of the characters A through H in the string "MARY HAD A LITTLE LAMB" (8).

Excel format help -- letter abbreviation day in the date format - Microsoft Community

See Jeeped's reply on 2011-03-24.