نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

موضوع: آوردن عکس شخص در یک سلول اکسل با استفاده از url

  1. #1


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    آوردن عکس شخص در یک سلول اکسل با استفاده از url

    سلام
    در یک فایل اکسل در یک ستون آدرس اینترنتی عکس ها را داریم.
    می خواهیم در ستون بغلی عکس ها بیاید (با استفاده از آدرس اینترنتی عکس ها).
    ترجیحا عرض همه عکسها 60 پیکسل باشد و نسبت عرض به طول عکس دست نخورد
    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط karbar : 2013/12/15 در ساعت 09:51

  2.  

  3. #2


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    با سرچ در اینترنت چند جواب پیدا کردم اما ارور میداد.
    دوستان اگر می توانند راهنمایی کنند

  4. #3


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    فایل ضمیمه رو ببینید
    فقط باید مسیر ذخیره عکس رو عوض کنید
    با این ماکرو شما عکس مر بوط به لینک رو در یک فولدر روی هارد ذخیره می کنید
    برای نمایش عکس هم یه سرچ انجام بدین یه جواب می رسید
    فايل هاي پيوست شده فايل هاي پيوست شده
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  5. #4


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,475
    امتیاز
    12316
    سپاس
    8,923
    سپاس شده
    10,587 در 3,746 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط karbar نمایش پست ها
    سلام
    در یک فایل اکسل در یک ستون آدرس اینترنتی عکس ها را داریم.
    می خواهیم در ستون بغلی عکس ها بیاید (با استفاده از آدرس اینترنتی عکس ها).
    ترجیحا عرض همه عکسها 60 پیکسل باشد و نسبت عرض به طول عکس دست نخورد
    با تشکر

    سلام دوست عزيز
    با اجازه محمد آقا

    اين كد هم ميتونه كمكتون كنه

    آدرس عكستون رو در A1 قرار بدين . براتون در سلول B1 عكستون رو درج ميكنه

    کد:
    Sub Test()
        Dim Pic As Picture
        Application.ScreenUpdating = False
        With ActiveSheet.Range("A1")
            Set Pic = .Parent.Pictures.Insert(.Value)
            With .Offset(, 1)
                Pic.Top = .Top
                Pic.Left = .Left
                Pic.Height = .Height
                Pic.Width = .Width
            End With
        End With
        Application.ScreenUpdating = True
    End Sub


  6. #5


    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    با درود

    شما میتونید از افزونه زیر استفاده کنید

    پسورد mantis.ir
    فايل هاي پيوست شده فايل هاي پيوست شده




  7. #6


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    ضمن تشکر
    البته آدرس های من در ستون M بود بنابر این A1 را تبدیل به M1 کردم
    اما برای من خطای
    Run-time error '1004'
    Unable to get the Insert property of the Pictures Class
    میدهد
    خطا روی خط
    Set Pic = .Parent.Pictures.Insert(.Value)
    است

  8. #7


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    با سلام خدمت دوستان

    فایل زیر رو ملاحظه بفرمائید:
    فايل هاي پيوست شده فايل هاي پيوست شده
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  9. #8


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    ضمن تشکر از شما
    فایل شما درست کار میکنه
    اما وقتی کد شما رو به اینصورت برای فایل اکسل خودم استفاده کردم
    کد:
    Option Explicit
    
    
    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
    
    
    Dim Ret As Long
    
    
    '~~> This is where the images will be saved. Change as applicable
    Const FolderName As String = "D:\site\___1392\____sabtenam\aks-dabiran-test\"
    
    
    Sub loadpic2sheet_DL()
        Dim ws As Worksheet
        Dim LastRow As Long, i As Long
        Dim strPath As String
        Dim cell As String
        
        '~~> Name of the sheet which has the list
        Set ws = Sheets("Sheet1")
    
    
        LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    
    
        For i = 1 To LastRow '<~~ 2 because row 1 has headers
        
            strPath = FolderName & ws.Range("A" & i).Value & "-ax.jpg"
                Ret = URLDownloadToFile(0, ws.Range("L" & i).Value, strPath, 0, 0)
    
    
            If Ret = 0 Then
                ws.Range("N" & i).Value = "File successfully downloaded to " & strPath
                ws.OLEObjects("Image" & i).Object.Picture = LoadPicture("strPath")
            Else
                ws.Range("N" & i).Value = "Unable to download the file"
            End If
        Next i
    End Sub
    عکس اول رو درست دانلود میکنه اما توی فایل اکسل نمیاره و روی این خط
    کد:
    ws.OLEObjects("Image" & i).Object.Picture = LoadPicture("strPath")
    خطای
    File not found
    میده.
    لطفا علتش رو بگید.

  10. #9


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    مسئله مهمی که باید مورد توجه قرار بگیره اینکه باید فرمت عکس jpg باشه و مهمتر اینکه اگه عکسها با نام مشترک باشند rewrite میشن یعنی روی عکس قبلی ذخیره میشن.
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************


  11. سپاس ها (2)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

آوردن عکس در اکسل

اوردن عکس در اکسل

عکس در سلول‌های اکسلآموزش اوردن عکس درaccessاوردن عکس به اکسلنحوه آوردن عکس به اکسلنمايش عكس در يك خانه از اكسلآوردن عکس در اکسسعکس شخصعکس آوردن در اکسلخطای 1004 در اکسلاجرای عکس از روی هارد اکسس کدنحوه آوردن عکس در یک سل در اکسلمحل url در برنامه excel

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است