精华内容
下载资源
问答
  • word addpicture 环绕方式

    2011-11-11 16:31:10
    打开word,添加图片及环绕方式,设置图片大小等
  • Unity解决XWPFRun的addPicture方法无法显示图片的问题 Unity创建写入Word文档(主要解决Unity向word中图片没有显示的问题) 1.创建word并写入 路径: 2.写入图片

    Unity解决XWPFRun的addPicture方法无法显示图片的问题

    Unity创建写入Word文档(主要解决Unity向word中图片没有显示的问题)

    1.创建word并写入

    路径:

    2.写入图片

    展开全文
  • 第11行代码中使用Shape对象的AddPicture方法插入花卉图片,图片文件以花卉名称作为文件名,扩展名为JPG,保存在工作簿所在目录中。代码中的 ThisWorkbook.Path 返回当前工作簿所在的目录名称。 AddPicture方法从...

    ​如果需要制作如图1所示的产品目录,因为所需图片的尺寸通常并非完全一致,所以除了插入图片,还需要调整图片的尺寸以适应"图片"列单元格的大小。使用VBA可以快速完成这一系列繁杂的操作,示例代码如下。

    Sub InsertPictures()
         Dim lngRow As Long
         Dim objShape As Shape
         Dim objTargetCell As Range
         With Sheet1
        .Shapes.SelectAll'选中工作表中的所有Shape对象
        Selection.Delete'删除选中的Shape对象
             If .Cells(3, 1).Value <> "" Then
                 For lngRow = 3 To .Cells(3, 1).End(xlDown).Row
                     Set objTargetCell = .Cells(lngRow, 3)
                     .Shapes.AddPicture(ThisWorkbook.Path & "\" & _
                         .Cells(lngRow, 2) & ".jpg", True, True, _
                         objTargetCell.Left + 2, objTargetCell.Top + 2, _
                         objTargetCell.Width - 4, _
                         objTargetCell.Height - 4).Select
                     Selection.ShapeRange.LockAspectRatio = msoFalse'取消图片的纵横比,以适应单元格大小
                 Next lngRow
             End If
         End With
         Set objTargetCell = Nothing
         Set objShape = Nothing
     End Sub

    图1 图片产品目录

    第9行代码使用Range对象的End属性获取工作表中A列最后一个非空单元格的行号作为循环的终值。

    第11行代码中使用Shape对象的AddPicture方法插入花卉图片,图片文件以花卉名称作为文件名,扩展名为JPG,保存在工作簿所在目录中。代码中的ThisWorkbook.Path返回当前工作簿所在的目录名称。

    AddPicture方法从现有文件创建图片并返回代表新图片的Shape对象,其语法格式如下。

    AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

    AddPicture方法的所有参数都是必需的。

    名称必选/可选数据类型说明
    Filename必选String要在其中创建 OLE 对象的文件的路径和文件名。
    LinkToFile必选MsoTriState要链接至的文件。代表图片对象与源文件之间的关系,使图片成为其源文件的独立副本则为msoFalse,建立图片与其源文件之间的链接则为msoTrue.
    SaveWithDocument必选MsoTriState将图片与文档一起保存。在文档中只存储链接信息则为msoFalse,将链接图片与该图片插入的文档一起保存则为msoTrue。如果参数LinkToFile为msoFalse,则该参数必须为msoTrue。
    Left必选Single图片左上角相对于文档左上角的位置(以磅为单位)。
    Top必选Single图片左上角相对于文档顶部的位置(以磅为单位)。
    Width必选Single图片的宽度(以磅为单位)。
    Height必选Single图片的高度(以磅为单位)。

     


    微信公众号:VBA168

    淘宝店铺地址:https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162

    关注微信公众号,每天及时接收Excel VBA经典示例讲解。

    淘宝店铺提供Excel定制服务。

    祝你工作和学习更轻松!

    展开全文
  • 如果不知道参考的word模板的图片设置的大小,则可以双击word模板中的图片,然后查看宽度和高度 addPicture方法中的宽度和高度是EMU(英制公制单位),所有根据1 EMU = 1/914400英寸= 1/36000 mm转化即可。
    XWPFRun run = paragraph.createRun();
    InputStream is = getClass().getClassLoader().getResourceAsStream("images/abc.gif");
    // 因为FileInputStream没有重写reset() 所有将流转为了byte数组
    byte[] bs = IOUtils.toByteArray(is);
    BufferedImage image = ImageIO.read(new ByteArrayInputStream(bs));
    //int width = MyUnits.pxToEMU(image.getWidth());
    //int height = MyUnits.pxToEMU(image.getHeight());
    //EMU(英制公制单位)。1 EMU = 1/914400英寸= 1/36000 mm
    run.addPicture(new ByteArrayInputStream(bs), Document.PICTURE_TYPE_GIF, "", 685800, 685800);

    如果不知道参考的word模板的图片设置的大小,则可以双击word模板中的图片,然后查看宽度和高度

    addPicture方法中的宽度和高度是EMU(英制公制单位),所有根据1 EMU = 1/914400英寸= 1/36000 mm转化即可。

    展开全文
  • 查阅资料得知可以使用 XWPFRun 的 addPicture 方法来添加,代码如下: // 插入条形码图片 XWPFParagraph paragraph = cell.addParagraph(); XWPFRun run = paragraph.createRun(); try { FileInputStream fi...

    最近在解决一个导出订单发票的需求,导出的 word 上必须有条形码图片。查阅资料得知可以使用 XWPFRun 的 addPicture 方法来添加,代码如下:

    // 插入条形码图片
    XWPFParagraph paragraph = cell.addParagraph();
    XWPFRun run = paragraph.createRun();
    try {
       
    	FileInputStream fis = new FileInputStream
    展开全文
  • -- sheet.shapes.addpicture("E:\\小包包\\Source\\include\\flower.jpg",nil,nil,r.Left,r.Top,-1,-1) 路径已经是绝对的啦,以下是报错,请问怎么插入图片 C:\Program Files (x86)\Lua\5.1\lua.exe: COM exception:...
  • 一个简单的控件使用方法,利用按钮添加图片
  • CComPtr pShape = pShapes->AddPicture(bstrPicName, msoFalse, msoCTrue, 0, 0, -1, -1);  项目中,需要向office中插入一个图片,但是同事的代码总是会有缩放,不是原始大小。我查看了他的代码,最后两个...
  • 这几天想通过一个现有word文件作为模板,然后根据...text解决了,表格解决了,结果才发现图片用XWPFDocument压根无法实现addPicture,POI自身有bug,图片是加入到word文件里面了,可是显示不了。。。 于是乎,又折腾了
  • 主要问题是出在:org.apache.poi.xwpf.usermodel.XWPFRun.addPicture()函数 解决的是 // Pesky XmlBeans bug - see Bugzilla #49934 测试代码: HashMap, Object> map = new HashMap, Object>(); map.put("${...
  • 在32位WIN7 VS2012环境下测试通过,在64位WIN7 VS2013环境下GlobalLock和GlobalSize函数返回NULL,具体参见注释
  • [face]qq:9.gif[/face] 或者用pictureBox控件添加图片到excel,我这样写的但是excel表格里显示System.Drawing.Bitmap xlWorksheet.Cells[10, "A"] =this.pictureBox1.InitialImage
  • <p>java.lang.IndexOutOfBoundsException: Index: 0, Size: 0 ...drawingPatriarch.createPicture(anchor, xssfWorkbook.addPicture(byteArrayOut.toByteArray(), XSSFWorkbook.PICTURE_TYPE_JPEG));  </p>
  • 在C#中插入图片后,想对图片设置位置,请问如何实现?
  • } /* 插入图片 */ void WordEngine::AddPicture(QString file) { QAxObject* selection = m_pWord->querySubObject("Selection"); if (!selection) { return; } setAlignment(0); QString filename = file;...
  • Doc.Shapes.AddPicture App.Path & "\picture2.jpg", False, True, 50, 100, 150, 200中的False, True, 50, 100, 150, 200,这些是什么意思?谢谢
  • [color=#FF0000] com.jacob.com.ComFailException: Invoke of: AddPicture[/color] 如题。
  • 用C#开发的WPS插件源码,往WPS工具栏中插入自定义菜单和往单元格右键菜单添加自定义菜单,开发环境:VS2010。
  • <p>patriarch.createPicture(anchor , wb.addPicture(byteArrayOut.toByteArray(),HSSFWorkbook.PICTURE_TYPE_JPEG));      报错: <p>java.lang.IndexOutOfBoundsException: Index: 0, Size: 0...
  • m_objSheet.Shapes.AddPicture(PicturePath, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue, PicLeft, PicTop, PictuteWidth, PictureHeight); } /// /// 将...
  • try { imageCellRunn.addPicture(new FileInputStream("D:/1.png"), BaseXWPFDocument.PICTURE_TYPE_PNG, "1.png", Units.toEMU(40), Units.toEMU(30)); } catch (Exception e) { e.printStackTrace(); } run....
  • //int pictureIdx = sheet.Workbook.AddPicture(bytes, PictureType.JPEG); //IClientAnchor anchor = null; //IPicture pict = null; //int dx1 = 0, dy1 = 0, dx2 = 1023, dy2 = 255; //int col1 = 1, row1...
  • //二进制有数据 int pictureIdx = hbook.AddPicture(buff, PictureType.JPEG); //这里直接返回了0?? //这样就导致后面无法插入了 XSSFDrawing patriarch = (XSSFDrawing)a.CreateDrawingPatriarch(); ...
  • if (houzhui.equals("jpg")){ photos.addPicture(new ByteArrayInputStream(byteArray), Document.PICTURE_TYPE_JPEG, picPath, Units.toEMU(width), Units.toEMU(height)); }else if (houzhui.equals("png")){ ...
  • 用NPOI插图到docx

    热门讨论 2014-03-13 10:24:34
    利用NPOI插图到docx中的例子,本例提供的NPOI经过了修改。例中介绍了inline和anchor两种插图方法,anchor方法中只实现了四周型、紧密型和穿越型。
  • C#操作Excel类,功能比较全

    千次阅读 2017-12-21 10:07:10
    一个C#操作Excel类,功能比较全
  • InlineShape inlineShape = wordDoc.InlineShapes.AddPicture(dir + "\\test.jpg", ref linkToFile, ref saveWithDocument, ref range);//向文档中插入图片 if (inlineShape.Height >= 300) { inlineShape.Width...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,940
精华内容 1,976
关键字:

AddPicture