कमेंट बॉक्स के डिफ़ॉल्ट आकार को कैसे बदलें


5

जब भी मैं टिप्पणी करता हूं, हर बार बॉक्स का आकार बदलना अविश्वसनीय होता है। किसी को भी शॉर्टकट पता है, या कोई सुराग प्रदान कर सकता है ताकि मैं इसे स्क्रिप्ट कर सकूं?


नहीं है इस लिंक, लेकिन मैं "टिप्पणी बॉक्स" द्वारा तुम क्या मतलब द्वारा यकीन नहीं है
Doktoro Reichard

जवाबों:


2

मैं इस VBA मैक्रो का उपयोग बड़े पैमाने पर टिप्पणियों के आकार के लिए करता हूँ जब इसकी आवश्यकता होती है। जहाँ तक मुझे पता है, आप कमेंट बॉक्स के डिफ़ॉल्ट आकार को नहीं बदल सकते।

मैं Worksheet_SelectionChangeआकार बदलने वाले मैक्रो को स्वचालित रूप से ट्रिगर करने के लिए घटना के साथ खेला था , लेकिन यह एक भयानक विचार है जब यह बड़ी रेंज को छाँटने / स्थानांतरित करने की बात आती है।

Sub AutoFitComments()
    Application.ScreenUpdating = False
    For Each MyComment In ActiveSheet.Comments
        With MyComment
            .Shape.TextFrame.AutoSize = True
            .Shape.Top = .Parent.Top + 3
            .Shape.Left = .Parent.Offset(0, 1).Left + 3
            .Shape.Placement = xlMove
        End With
    Next
    Application.ScreenUpdating = True
End Sub

अपनी कार्यपुस्तिका के VBA संपादक में कोड डालें। प्रेस Alt+ F8» Enterमैक्रो जल्दी से चलाने के लिए।

यहाँ छवि विवरण दर्ज करेंयहाँ छवि विवरण दर्ज करें

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.