excel表格图片自动填充大小

 我来答

3个回答

#热议# 不吃早饭真的会得胆结石吗？

李岳铮
2014-05-16 · TA获得超过107个赞

知道小有建树答主

回答量：302

采纳率：0%

帮助的人：215万

我也去答题访问个人页

关注

展开全部

用word可以，excel做不到

已赞过 已踩过<

评论收起

博思aippt
2024-07-20 广告

作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT... 点击进入详情页

本回答由博思aippt提供

docky627
2014-05-16 · TA获得超过222个赞

知道答主

回答量：168

采纳率：0%

帮助的人：66.1万

我也去答题访问个人页

关注

展开全部

运行如下程序，然后选择图片即可。
可以将如下程序添加到菜单栏一键运行。

Sub 逐个导入图片()

    Dim shp As Shape
    Dim r As Integer
    Dim fl As String      '图片所在文件夹
    Dim PicPath As String  '图片名称所在目录
    Dim Picrng As Range    '图片导入单元格
     '选择文件夹，默认是当前工作簿所在文件夹
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
         .Filters.Clear
        '清除文件过滤器
        .Filters.Add "图片文件", "*.jpg;*.jpeg;*.bmp;*.png"
        .Filters.Add "All Files", "*.*"
        If .Show = -1 Then
            fl = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    With ActiveSheet
         PicPath = fl
            If Dir(PicPath) <> "" Then
               Set shp = .Shapes.AddPicture(PicPath, False, True, 0, 0, -1, -1)
               Set Picrng = ActiveCell '设定图片插入单元格为活动单元格
               With shp
                    .LockAspectRatio = msoFalse  '纵横比可调整
                    .Top = Picrng.Top + 1
                    .Left = Picrng.Left + 1
                    .Width = Picrng.Width - 1.5
                    .Height = Picrng.Height - 1.5
                End With
             End If
    End With
    Set shp = Nothing
    Set Picrng = Nothing
End Sub


本回答被提问者和网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起