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

موضوع: قرار دادن عکس از یک آدرس در اکسل

  1. #1


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,468
    امتیاز
    12312
    سپاس
    8,923
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    قرار دادن عکس از یک آدرس در اکسل

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

    چند روش برای این منظور وجود داره. ساده ترین روش اینه که خود عکس رو دقیقا وارد اکسل کنیم (شبیه حالتی که عکس در سیستم هست و ما از طریق insert picture عکس رو وارد شیت میکنیم. (روش 1)
    در حالت بعدی ما میتونیم عکس رو بعنوان یک کامنت به سلول اضافه کنیم. در این روش هر سلولی که انتخاب شده باشه یک کامنت بهش اضافه میشه و داخل کامنت عکس مورد نظر لود میشه (روش 2)
    در روش بعدی ما میتونیم عکس رو داخل یک shape اضافه کنیم. اشکالی که قابلیت fill دارند مثل مستطیل یا بیضی یا ... میتونیم عکس رو داخل اون اشیاء اضافه کنیم (روش 3)
    حالت های دیگه هم شبیه همین سه روش هست که دیگه از توضیح اونها صرف نظر میکنم
    حالا بریم سراغ کدهایی که باید نوشته بشه
    روش اول:
    کد:
    Sub InsertPicture()
    v = Range("A1").Value
    ActiveSheet.Pictures.Insert (v)
    End Sub



    روش دوم:
    کد:
    Sub InsertCommentImage()
    Dim commentBox As Comment
    ' Clear any comments before attempting to add them.
    ActiveCell.ClearComments
    ' Define the comment as a local variable and assign the file name from the
    ' cellAddress input parameter to the comment of a cell.
    url_path = Range("A1").Value
    Set commentBox = Application.ActiveCell.AddComment
    With commentBox
        .Text Text:=""
        With .Shape
            .Fill.UserPicture (url_path)
            .ScaleHeight 3, msoFalse, msoScaleFromTopLeft
            .ScaleWidth 2.4, msoFalse, msoScaleFromTopLeft
        End With
        ' Set the visible to True when you always want the image displayed, and
        ' to False when you want it displayed only when you click on the cell.
        .Visible = False
    End With
    End Sub

    آدرس عکس در سلول A1 نوشته شده



    روش سوم:
    کد:
    Private Declare PtrSafe 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
    
    
    Private Sub InsertInFrame()
    Dim url_path As String
    Dim file_path As String
    url_path = Range("A1").Value
    file_path = ThisWorkbook.Path & "\" & "Image.png"
    ' Download picture
    DownloadfromWeb = URLDownloadToFile(0, url_path, file_path, 0, 0)
    ' Load picture
    With ActiveSheet.Shapes("Rectangle 1").Fill
        .Visible = msoTrue
        .UserPicture file_path
        .TextureTile = msoFalse
    End With
    ' Delete Saved file
    Kill file_path
    End Sub

    آدرس عکس در سلول A1 نوشته شده


    در این قسمت نام شیء که اضافه کردین رو مینویسید

    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط Amir Ghasemiyan : 2016/08/06 در ساعت 18:31 دلیل:ضمیمه کردن فایل نمونه


  2.  

  3. #2


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    با سلام ممنون از لطفتون . لطفا اگر امکان داره برای هر کدام از حالت ها نمونه بگذارید .تشکر

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,468
    امتیاز
    12312
    سپاس
    8,923
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    فایل نمونه پیوست شد


  6. #4


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    با سلام مجدد.

    ممنون بابت نمونه ارسالی.

    در موقع باز کردن فایل با یک پیغام خطا مواجه میشم . لطفا در صورت امکان بررسی فرمائید. (تصویر خطا پیوست شده است) تشکر
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar خطا.rar اطلاعات (41.3 کیلو بایت, 36 نمایش)

  7. #5


    آخرین بازدید
    2024/01/07
    تاریخ عضویت
    July 2014
    نوشته ها
    313
    امتیاز
    35
    سپاس
    109
    سپاس شده
    25 در 24 پست
    تعیین سطح نشده است

    سری بعدی پیام ها
    فايل هاي پيوست شده فايل هاي پيوست شده

  8. #6


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,468
    امتیاز
    12312
    سپاس
    8,923
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط fokker نمایش پست ها
    با سلام مجدد.

    ممنون بابت نمونه ارسالی.

    در موقع باز کردن فایل با یک پیغام خطا مواجه میشم . لطفا در صورت امکان بررسی فرمائید. (تصویر خطا پیوست شده است) تشکر
    دوست عزیز عبارت PtrSafe برای سیستم های 64 بیتی استفاده میشه. اگر سیستم شما 32 بیتی (x86) است لطفا این عبارت رو بردارید تا مشکل برطرف شود

    در مورد سایر خطاهایی که دریافت کردین علت اینه که یا آدرس عکس اشتباهه یا اینکه در سلول A1 قرار ندادین. اگر به آموزش توجه کرده باشید من قسمتی که باید آدرس سلول رو مشخص کنید با رنگ قرمز مشخص کردم


  9. #7


    آخرین بازدید
    2023/04/19
    تاریخ عضویت
    July 2019
    محل سکونت
    شبستر
    نوشته ها
    109
    امتیاز
    332
    سپاس
    339
    سپاس شده
    327 در 108 پست
    سطح اکسل
    93.00 %

    سلام استاد عالی بود متشکرم



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

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

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

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

درج عکس در اکسل

قرار دادن عكس در سل اكسل

نحوه قرار دادن عکس پرسنلی در سلول ایکسل

کامنت کردن عکس در اکسل

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

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

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