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

موضوع: افزودن دکمه پرینت در ورد و مخفی بودن آن

  1. #1


    آخرین بازدید
    2024/02/19
    تاریخ عضویت
    June 2012
    نوشته ها
    49
    امتیاز
    5
    سپاس
    2
    سپاس شده
    5 در 5 پست
    سطح اکسل
    46.00 %

    افزودن دکمه پرینت در ورد و مخفی بودن آن

    سلام من یک نامه اداری دارم که می خوام با افزودن دکمه پنجره پرینت نمایش داده بشه و خواسته ای که دارم در فایل پیوستی انجام بشه از دوستان تقاضای راهنمایی دارم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده

  2.  

  3. #2


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    دوست عزیر لطفا فایل ضمیمه را بررسی نمایید.

    قابل ذکر است روی فایل شما نمیشد کار کرد به خاطر اینکه چندین تکست باکس ایجاد کرده بودید (به دلایل زیر )برای بهتر رسیدن به نتیجه اول یک فایل جدید ورد باز کنید سپس از لبه Insert گزینه Shapes را کلیک و یک تکست باکس انتخاب نمایید و سه بار اینکار را انجام دهید (یعنی سه تا تکست باکس به ورد خود اضافه کنیدکه تکست باکس سوم برای رونوشت می باشد .)

    حالا نیاز به دو دکمه دارید بعد از اضافه کردن و نام گذاری آنها دکمه شماره 1 را انتخاب و Cut میکنید و روی تکست باکس 1 رفته و آن را داخل تکست باکس 1 اضافه میکنید و برا ی دکمه دوم نیزی همین کار را میکنید .
    سپس کدهای فایل پیوست را کپی و به فایل جدید خود اضافه میکنید.
    ترفند:
    ورود میتواند اشکال را مخفی کند و شما از این خاصیت برای مخفی کردن دکمه استفاده میکند.

    با تشکر میر
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط majid_mx4 : 2015/01/29 در ساعت 12:10


  4. #3


    آخرین بازدید
    2024/02/19
    تاریخ عضویت
    June 2012
    نوشته ها
    49
    امتیاز
    5
    سپاس
    2
    سپاس شده
    5 در 5 پست
    سطح اکسل
    46.00 %

    سلام دوست گرامی می شه راهنمایی بفرمایید چطور میشه شماره اندیس هر shape* رو پیدا کرد چون برای کد نویسی بهش نیاز دارم

  5. #4


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    باسلام

    احتراما فایل ضمیمه را بررسی نمایید. فایل پیوست شده حاوی دستور جهت شناسایی نام Shape هایی که در صفحه وجود دارند می باشد.

    توجه : لطفا قبل از استفاده از فایل آن را Rename کرده و Doc. را از آخر آن حذف نمایید.
    این هم دستوارت

    کد:
    Sub ShapeNames()
        Dim sh As Shape
        Dim strMsg As String
          Dim txt As String
        If Selection.ShapeRange.Count > 0 Then
            Set sh = Selection.ShapeRange(1)
          
             End If
        For Each sh In ActiveDocument.Shapes
            strMsg = " نام :  " & sh.Name
             If sh.TextFrame.HasText Then
            txt = sh.TextFrame.TextRange.Text
            
            If sh.LinkFormat Is Nothing Then
                strMsg = strMsg
           
            End If
            MsgBox strMsg & vbLf & " و محتواي داخل آن  " & vbLf & "           " & txt
       End If
       Next sh
    End Sub
    با تشکر میر
    فايل هاي پيوست شده فايل هاي پيوست شده

  6. #5


    آخرین بازدید
    2024/02/19
    تاریخ عضویت
    June 2012
    نوشته ها
    49
    امتیاز
    5
    سپاس
    2
    سپاس شده
    5 در 5 پست
    سطح اکسل
    46.00 %

    سلام دوست گرامی یکی از عزیزان راه حل ساده ای را ارائه نمودند که به شرح ذیل است: ابتدا shape مورد نظر را انتخاب می کنیم سپ Alt+f11 را می زنیم تا vba editor باز شود سپس در همین محیط ctrl+g را زده یا از گزینه view - گزینه immediate window را انتخاب و در محیط آن می نویسم: selection.shaperange.name? سپس اینتر می زنیم می بینید که نام shape ذکر می شود.


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

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

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

موضوعات مشابه

  1. خروجی برنامه تشخیص عدد زوج و فرد در msg box
    توسط میثم66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2014/12/01, 01:49
  2. [حل شده] تشخیص اعداد زوج و فرد در vba
    توسط میثم66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2014/11/13, 14:50
  3. افزودن rows پس از ورود اطلاعات
    توسط jeddi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2014/05/24, 03:39
  4. پاسخ ها: 0
    آخرين نوشته: 2014/01/02, 20:44

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

دکمه پرینت

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

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

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

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