{
  "scene": "test",
  "page": "pages/product/buyproduct?productId=4",
  "checkPath": false,
  "envVersion": "develop"
}

Launch mode: Launch new Instance
Initial URL: https://srh.bankofchina.com/search/whpj/search_cn.jsp
Windows state: Normal
Variales produced: BankOfChina

Web browser instance: %BankOfChina%

http://dev.virtualearth.net/REST/v1/Locations/47.64054,-122.12934?o=xml&key={BingMapsKey}  

http://dev.virtualearth.net/REST/v1/Imagery/Map/Road/47.619048,-122.35384/15?mapSize=500,500&pp=47.620495,-122.34931;21;AA&pp=47.619385,-122.351485;;AB&pp=47.616295,-122.3556;22&mapMetadata=1&o=xml&key={BingMapsKey}

Sub DisableResizeTableCells()
    Dim meekouTable As Table
    Set meekouTable = Selection.Tables(1)
    meekouTable.AllowAutoFit = False
    meekouTable.Rows.HeightRule = wdRowHeightExactly
    meekouTable.Rows.Height = CentimetersToPoints(5)
End Sub

name: Word不改变表格单元格大小的情况下插入图片 (1)
description: Create a new snippet from a blank template.
host: WORD
api_set: {}
script:
  content: |
    $("#insertImage").click(() => tryCatch(insertImage));

    async function insertImage() {
      let fileInput: HTMLInputElement = document.createElement("input");
      fileInput.type = "file";
      fileInput.style.display = "none";
      fileInput.accept = "image/*";
      fileInput.onchange = async () => {
        var reader: FileReader = new FileReader();
        reader.onload = () => {
          Word.run(async (context) => {
            let base64 = reader.result.toString();
            let img = new Image();
            let imgWidth = 0;
            let imgHeight = 0;
            img.src = base64;
            img.onload = function() {
              imgWidth = img.width;
              imgHeight = img.height;
            };
            base64 = base64.split(",")[1];
            console.log(base64);
            const body = context.document.getSelection();
            let cell = body.parentTableCell;
            cell.load("width,parentRow/preferredHeight");
            await context.sync();
            let width = cell.width;
            let height = cell.parentRow.preferredHeight;
            let inlinePic = body.insertInlinePictureFromBase64(base64, Word.InsertLocation.replace);
            await context.sync();
            if (imgWidth > width || imgHeight > height) {
              inlinePic.width = width;
              inlinePic.height = height;
            }
          }).catch((error) => {
            console.log(error);
          });
        };
        // read in the image file as a data URL.
        reader.readAsDataURL(fileInput.files[0]);
      };
      fileInput.click();
    }

    /** Default helper for invoking an action and handling errors. */
    async function tryCatch(callback) {
      try {
        await callback();
      } catch (error) {
        // Note: In a production add-in, you'd want to notify the user through your add-in's UI.
        console.error(error);
      }
    }
  language: typescript
template:
  content: "<div>\n\t<button id=\"insertImage\">插入图片至Word表格内，不改变单元格大小</>\n</div>"
  language: html
style:
  content: |-
    section.samples {
        margin-top: 20px;
    }

    section.samples .ms-Button, section.setup .ms-Button {
        display: block;
        margin-bottom: 5px;
        margin-left: 20px;
        min-width: 80px;
    }

    table, th, td {
      border: 1px solid black;
      border-collapse: collapse;
    }
  language: css
libraries: |
  https://appsforoffice.microsoft.com/lib/1/hosted/office.js
  @types/office-js

  office-ui-fabric-js@1.4.0/dist/css/fabric.min.css
  office-ui-fabric-js@1.4.0/dist/css/fabric.components.min.css

  core-js@2.4.1/client/core.min.js
  @types/core-js

  jquery@3.1.1
  @types/jquery@3.3.1

Public Function ConvertFileToBase64(filePath As String) As String

    Const UseBinaryStreamType = 1

    Dim objStream: Set objStream = CreateObject("ADODB.Stream")
    Dim objXmlDoc: Set objXmlDoc = CreateObject("Microsoft.XMLDOM")
    Dim objXmlElem: Set objXmlElem = objXmlDoc.createElement("tmp")
    
    objStream.Open
    objStream.Type = UseBinaryStreamType
    objStream.LoadFromFile filePath
    objXmlElem.DataType = "bin.base64"
    objXmlElem.nodeTypedValue = objStream.Read
    ConvertFileToBase64 = Replace(objXmlElem.Text, vbLf, "")
    
    Set objStream = Nothing
    Set objXmlDoc = Nothing
    Set objXmlElem = Nothing
    
End Function

Public Sub ConvertBase64ToFile(filePath As String, strBase64 As String)

    Const UseBinaryStreamType = 1
    Const SaveWillCreateOrOverwrite = 2

    Dim objStreamOutput: Set objStreamOutput = CreateObject("ADODB.Stream")
    Dim objXmlDoc: Set objXmlDoc = CreateObject("Microsoft.XMLDOM")
    Dim objXmlElem: Set objXmlElem = objXmlDoc.createElement("tmp")
    
    objXmlElem.DataType = "bin.base64"
    objXmlElem.Text = strBase64
    objStreamOutput.Open
    objStreamOutput.Type = UseBinaryStreamType
    objStreamOutput.Write = objXmlElem.nodeTypedValue
    objStreamOutput.SaveToFile filePath, SaveWillCreateOrOverwrite
    
    Set objStreamOutput = Nothing
    Set objXmlDoc = Nothing
    Set objXmlElem = Nothing
    
End Sub

Sub InsertImgFromBase64(sheet As String, address As String, varImgName As String, varBase64 As String)
    Dim tempFile As String
    'Save base64 string to temp folder
    tempFile = Environ("temp") & "\" & varImgName
    
    'save byte array to temp file
    Open tempFile For Binary As #1
       Put #1, 1, DecodeBase64(varBase64)
    Close #1

    'insert image from temp file
    Sheets(sheet).Range(address).Select
    Sheets(sheet).Pictures.Insert tempFile

    'kill temp file
    Kill tempFile
    
End Sub

Private Function DecodeBase64(ByVal strData As String) As Byte()

    Dim objXML As Object 'MSXML2.DOMDocument
    Dim objNode As Object 'MSXML2.IXMLDOMElement

    'get dom document
    Set objXML = CreateObject("MSXML2.DOMDocument")

    'create node with type of base 64 and decode
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    DecodeBase64 = objNode.nodeTypedValue

    'clean up
    Set objNode = Nothing
    Set objXML = Nothing

End Function

Sub InsertImgFromBase64Test()
    InsertImgFromBase64 "Sheet1", "E15", "test2.png", Range("A1")
End Sub

function main(workbook: ExcelScript.Workbook, sheetName: string, address: string, base64ImageString: string) {
  let sheet = workbook.getWorksheet(sheetName);
  let range = sheet.getRange(address);
  let image = sheet.addImage(base64ImageString);
  image.setTop(range.getTop());
  image.setLeft(range.getLeft());
}

Sub ColorMergeCells()
    Dim current As Range
    Dim mergedCell As Range
    For Each current In Range("B1:B10").SpecialCells(xlCellTypeVisible)
        If current.Offset(0, -1).MergeCells Then
            For Each mergedCell In current.Offset(0, -1).MergeArea
                If mergedCell.Text <> "" Then
                    mergedCell.Interior.Color = current.Interior.Color
                End If
            Next
        End If
        
    Next
End Sub

from PIL import Image
import numpy as np

w, h = 512, 512
data = np.zeros((h, w, 3), dtype=np.uint8)
data[0:256, 0:256] = [255, 0, 0] # red patch in upper left
img = Image.fromarray(data, 'RGB')