Excel 图片链接

普通的设置是完成不了的,只能上VBA。搞了一个模板,放在下面链接的问题答案这个文件夹中,自取不谢!

以下是代码,主要是用到 URLDownloadToFile 这个函数

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Sub downloadandshow()
    Application.ScreenUpdating = False
    
    Dim iRow, i, s
    Dim savePath
    Dim arr As Variant
    
    Set fso = CreateObject("scripting.filesystemobject")
    savePath = ThisWorkbook.Path & "\图片"
    
    If fso.folderexists(savePath) Then
        fso.deletefolder savePath
    End If
    
    MkDir savePath
    
    i = 2
    Do While Cells(i, 1) <> ""
        URLDownloadToFile 0, Cells(i, 1).Value, savePath & "\" & i & ".jpg", 0, 0
        Cells(i, 1).Select
        ActiveSheet.Pictures.Insert(savePath & "\" & i & ".jpg").Select
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.Height = Rows(i).RowHeight
        Selection.ShapeRange.Width = Columns(1).Width
        i = i + 1
    Loop
    
    Application.ScreenUpdating = True
End Sub

Excel 图片链接

��Ҫ��Excel�в���ͼƬ���ӣ�һ��Ϳ��Ե���һ����ͼƬ���ڡ���Excel�п��Բ��볬���ӣ����������㲻�ã�һ��Ҫ�����£�����Excel����ʾ����D:\MyDocuments\MyPictures\1_12103351.jp... ��Ҫ��Excel�в���ͼƬ���ӣ�һ��Ϳ��Ե���һ����ͼƬ���ڡ�
��Excel�п��Բ��볬���ӣ����������㲻�ã�һ��Ҫ�����£�����Excel����ʾ����D:\My Documents\My Pictures\1_12103351.jpg·����
���ʴ���ܲ���ֻ��һ�¾͵�����ͼƬ���ں�����·��
չ��

�����ϵ�����

�߷۴���

2019-04-22 �� ��Ҫ�ڴ�ʱ����������ǿ��С����ڿ�ҹ

��ע

Excel 图片链接

����/���ߣ�Excel2010

1������Ҫ���б༭��excel��������

2�������������Ҫ���ӳ����ӵĵ�Ԫ���ϡ�

3���ڹ������Ϸ��˵����е�����롣

4��ѡ�����ӡ�

5���ڵ����ij����ӶԻ������ҵ���Ҫ������ļ��������ȷ����

6����ͼ�����Ӿ���ʾ�ڵ�Ԫ�����ˣ��˴��������һ�Żõ�Ƭ��

7������굥���ղŲ���ij����ӣ��õ�Ƭ�ʹ��ˡ�

�����oZ
�Ƽ���2017-12-16 �� TA��ó���2696����

֪������

Excel 图片链接

�ش�����34

�����ʣ�0%

�������ˣ�0

��ע

Excel 图片链接

��������������⣺

1����EXCEL��,���볬���Ӻ��һ�¾Ϳ��Դ����ӡ�

2������·�����������˳������˵�Ԫ���ϣ�����Ƶ��������ʱ������ʾ�����ӵ�·������ʵҪ�������·������EXCEL��û����ȷ��һ�����ã������Ҿ���ʹ�õķ����У����ֿ���ͨ�����·���ʵ�֣�

�����ó����ӵĴ����У�����ͼ���ڡ���Ļ��ʾ���ϴ�һ�����ڣ�����������ݣ�Ҳ�����ǿո�ȷ���Ժ����ٵ�������������Ƶ������ӵ�Ԫ��ʱ���ͻ���ʾ��ո���������ݣ���������ʾ�����ӵĵ�ַ�ˡ�

��ʵ����취�ܼ򵥣����Ŵ�Ҷ��п����õ�������������ԡ�

���ش������߲���

�ٶ�����8c874d3
2009-06-02

֪������

Excel 图片链接

�ش�����25

�����ʣ�0%

�������ˣ�2.5��

��ע

Excel 图片链接

�����˵� ������������� �������༭�������ӡ����ڣ��ڡ�Ҫ��ʾ�����֡��ı���������Ҫ��ʾ�����ݣ�Ȼ��ѡ��ͼƬ���ٵ����ȷ������OK�ˡ�
���Թ����������ӿ�����ʾͼƬ��

����˫CX

�߷۴���

2020-03-18 �� ���Ĵ��⣬��ӭ��ע

֪������

Excel 图片链接

�ش�����0

�����ʣ�0%

�������ˣ�0

��ע

Excel 图片链接

�ٶ�����25da2f7
2009-06-02 �� TA���3241����

֪�����п�Ϊ����

Excel 图片链接

�ش�����1197

�����ʣ�57%

�������ˣ�498��

��ע

Excel 图片链接

��E�̵ĸ�Ŀ¼�½���1.jpg��JPEG�ļ�,��EXCEL�е���һ����Ԫ��������:
=HYPERLINK("E:\1.jpg",1)
����������������.
�ù�ʽ���г����ӵĺô���:������ļ����й��ɵ�,���ļ����Ѿ�������EXCEL�ĵ���ʱ��,���ö�������Ӿͱ��ʮ��������.

Ϊ���Ƽ���