هل يمكن تعديل الكود ليعمل علي جميع الصفحات مرة واحدة

[وليد عبدالغني]

هل يمكن تعديل الكود ليعمل علي جميع الصفحات مرة واحدة

كود تعديل تنسيق الكتابة الموجودة في المخططات الانسيابية الت يكتب بها نص للمحازاة لمحتواها من الكتابة فى المنتصف

وصلت الية من خلال التسجيل

Sub dodo()

    Sheets("cards_pin").Select
    ActiveSheet.Shapes.SelectAll

    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("J5").Select
    
    Sheets("PIN").Select
    ActiveSheet.Shapes.SelectAll
 
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("f4").Select
        
    Sheets("cards").Select
    ActiveSheet.Shapes.SelectAll

    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("J11").Select
    

    Sheets("main").Select
    ActiveSheet.Shapes.SelectAll

    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("I77").Select
    

    Sheets("HOME").Select
        ActiveSheet.Shapes.SelectAll
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Range("L33").Select
End Sub

 

هل يوجد كود لتحديد جميع الصفحات وتنفيذ كود المحازاة عليها

وشكرا

[وليد عبدالغني]

هل يمكن وضع الكود بعد تعديلة فى احداثي كل صفحة ليعمل عند فتح الصفحة

[أبو حنــــين]

مرحبا

في غياب الملف 

هل جربت هذه الطريقة

الكود يوضع في  Workbook في حدث  Workbook_SheetActivate

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter

End Sub

 

[وليد عبدالغني]

تسلم كل سنة وحضرتك طيب

لكن ما هو الذي اضيفة للكود لالغاء تحديد الكل بعد تنفيذ الكود

جيث تبقي الكائنات محددة بعد التنفيذ

[أبو حنــــين]

السطر التالي

 Range("A1").Select

قبل الجملة :  

End Sub