通过窗体向表格插入图片

qhmpv

3190496160 发表于 2020-10-7 15:23

在你的基础上我改了一下，现在删除图片也没有影响了，谢谢帮助。

深秋的黎明

3190496160 发表于 2020-10-7 15:23

是否可以增加窗口里自动缩放功能？

qhmpv

深秋的黎明 发表于 2020-10-7 21:25
是否可以增加窗口里自动缩放功能？

？？你想要实现什么？？插入表格里的时候放大？

深秋的黎明

qhmpv 发表于 2020-10-25 21:07
？？你想要实现什么？？插入表格里的时候放大？

插入表格后的图片，自动缩放为所在单元格的尺寸，谢谢

qhmpv

深秋的黎明 发表于 2020-10-28 08:53
插入表格后的图片，自动缩放为所在单元格的尺寸，谢谢

With Selection
        .ShapeRange.LockAspectRatio = msoFalse
        .Left = [F36:I42].Left
        .Top = [F36:I42].Top
        .Height = [F36:I42].Height
        .Width = [F36:I42].Width
    End With
试试这个

dragon0901

3190496160 发表于 2020-10-7 15:16
Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
       ...

您好，vba窗体是在sheet1表格中打开的，想把图片插入到sheet3中，怎么做呢，谢谢啦

3190496160

dragon0901 发表于 2022-7-13 16:41
您好，vba窗体是在sheet1表格中打开的，想把图片插入到sheet3中，怎么做呢，谢谢啦

具体问题具体分析，没有方放之四海而皆准的代码，上传附件，或者加v私聊

dragon0901

3190496160 发表于 2022-7-13 16:49
具体问题具体分析，没有方放之四海而皆准的代码，上传附件，或者加v私聊

谢谢您了。

3190496160

dragon0901 发表于 2022-7-13 16:56
谢谢您了。

Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False   '单选择
        .Filters.Clear   '清除文件过滤器
        .Filters.Add "Excel Files", "*.jpg;*.xlw"
        .Filters.Add "All Files", "*.*"          '设置两个文件过滤器
        If .Show <> -1 Then MsgBox "您没有选择图片文件": Exit Sub 'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
        f = .SelectedItems(1)
    End With
Image1.Picture = LoadPicture(f)
Label1.Caption = f
Image1.PictureSizeMode = 0 ' fmPictureSizeModeStretch
End Sub
Private Sub CommandButton2_Click()
Sheet3.Select
ActiveSheet.Pictures.Insert(f).Select
    With Selection
        .ShapeRange.LockAspectRatio = msoFalse
        .Left = [A1:b11].Left
        .Top = [A1:b11].Top
        .Height = [A1:b11].Height
        .Width = [A1:b11].Width
    End With
End Sub

3190496160

工作表实验.rar (191.47 KB, 下载次数: 53)

2022-7-13 18:19 上传

点击文件名下载附件