انجام عملیات مشابه Activewindow.zoom برای سطرها

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • nazarloo

    • 2013/11/09
    • 28
    #1

    انجام عملیات مشابه Activewindow.zoom برای سطرها

    با سلام و احترام خدمت اساتید محترم.بنده قصد دارم مانند حالتی که میتوان محدوده ای مشخص از ستون ها را با اندازه صفحه نمایش فیت کرد .با استفاده از این کد:
    کد:
    sheet1.activate
Select(sheet1.range(a1:u1)
Activewindow.zoom = true
    همین کار را با تعدادی سطر انجام دهم.یعنی محدوده مشخصی از سطرها با اندازه صفحه نمایش فیت شود.ممنون
    Last edited by Amir Ghasemiyan; 2018/06/27, 13:45. دلیل: قرار دادن كد داخل تگ مربوطه
    برچسب ها: هیچ‌کدام
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      نوشته اصلی توسط nazarloo
      با سلام و احترام خدمت اساتید محترم.بنده قصد دارم مانند حالتی که میتوان محدوده ای مشخص از ستون ها را با اندازه صفحه نمایش فیت کرد .با استفاده از این کد:
      کد:
      sheet1.activate
Select(sheet1.range(a1:u1)
Activewindow.zoom = true
      همین کار را با تعدادی سطر انجام دهم.یعنی محدوده مشخصی از سطرها با اندازه صفحه نمایش فیت شود.ممنون

      سلام
      همين كدي كه نوشتيد درسته ديگه. كافيه محدوده رو اصلاح كنيد. به اين كد توجه كنيد:

      کد:
      Sheet1.Activate
Sheet1.Range("a1:m30").Select
ActiveWindow.Zoom = True
      اين كد محدوده رو براي a1:m30 فيت ميكنه.

        کامنت

        • nazarloo

          • 2013/11/09
          • 28
          #3
          با سلام مجدد.بگذارید سوالم را طور دیگه طرح کنم.من میخوام یه عکس فیت صفحه نمایش بشه.همین.طوری که تو هر مانیتوری فایل باز میشه عکس تمام صفحه باشه
          Last edited by nazarloo; 2018/06/28, 11:26.

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4598
              • 100.00
              #4
              نوشته اصلی توسط nazarloo
              با سلام مجدد.بگذارید سوالم را طور دیگه طرح کنم.من میخوام یه عکس فیت صفحه نمایش بشه.همین.طوری که تو هر مانیتوری فایل باز میشه عکس تمام صفحه باشه
              محدوده ای که عکس داخلش قرار داره رو داخل کد قرار بدید دیگه. مثلا اگه محدوده عکس از b10 تا h30 باشه تو کد بجای a1:m30 مینویسید b10:h30. یا من سوالتون رو متوجه نمیشم یا شما متوجه پاسخ من نمیشید

                کامنت

                • nazarloo

                  • 2013/11/09
                  • 28
                  #5
                  با سلام. من همین کار رو میکنم اما متاسفانه یا یکبار خیلی بزرگ میشه. یکبار خیلی کوچیک. مواقعی هم اصلا تغییر نمیکنه.علتش در تفاوت ورژن آفیس ها نیست؟ چون بعضی از کامپیوتر ها 2013 بعضی ها 2007

                    کامنت

                    • Amir Ghasemiyan

                      • 2013/09/20
                      • 4598
                      • 100.00
                      #6
                      نوشته اصلی توسط nazarloo
                      با سلام. من همین کار رو میکنم اما متاسفانه یا یکبار خیلی بزرگ میشه. یکبار خیلی کوچیک. مواقعی هم اصلا تغییر نمیکنه.علتش در تفاوت ورژن آفیس ها نیست؟ چون بعضی از کامپیوتر ها 2013 بعضی ها 2007

                      بعيد ميدونم دوست عزيز. احتمالا مشكل از رزولوشن مانتيورهاست

                      يك راه ديگه هست و اون اينكه يك سلول رو ابعادشو اندازه اون عكس تغيير بديم و بعد اون سلول رو زوم كنيم. اگر اين روش بدردتون ميخوره و مشكلي براتون پيش نمياره بفرماييد تا كدشو تقديم كنم

                        کامنت

                        • nazarloo

                          • 2013/11/09
                          • 28
                          #7
                          اگر زحمت بکشید ممنون میشم.امتحان کنم شاید شد. پیشاپیش متشکرم

                            کامنت

                            • Amir Ghasemiyan

                              • 2013/09/20
                              • 4598
                              • 100.00
                              #8
                              نوشته اصلی توسط nazarloo
                              اگر زحمت بکشید ممنون میشم.امتحان کنم شاید شد. پیشاپیش متشکرم

                              خدمت شما دوست عزيز

                              کد:
                              Public Sub FitPic()
On Error GoTo 0
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
With Selection
    PicW = .Width
    PicH = .Height
    .Top = .TopLeftCell.Top
    .Left = .TopLeftCell.Left
End With
aa = Selection.TopLeftCell.Address
Columns(Range(aa).Column).ColumnWidth = PicW / 5
Rows(Range(aa).Row).RowHeight = PicH
Sheet1.Range(aa).Select
ActiveWindow.Zoom = True
End Sub

                                کامنت

                                قبلی template بعدی
                                چند لحظه..