在excel-vba上粘貼的按鈕大小調整

Question

我有一個執行許多函數並能正常工作的宏，但按鈕在兩種情況之一中調整大小。當宏使用一個自動過濾器時，這些按鈕會發生變化，這會自動刪除大約500行數據（按鈕變得更大），而且在我運行程序之前首次粘貼數據時，它們也會調整大小（再次變大）。我試圖進入屬性並選擇「不要移動或使用單元格大小」來定位對象。我也嘗試鎖定按鈕的長寬比。但是沒有保持按鈕的大小。我還有什麼可以嘗試的想法？

Answer 1

我認爲這應該做的伎倆。

我以前見過的另一件事是，如果按鈕更改，字體大小有時會發生變化。我包括這個，但留下了它的評論。您可能還需要/不需要重置按鈕的位置.TopLeftCell，其中也包括在內，但在下面的代碼註釋：

'## Add the following to your existing macro: 
Dim btn As Shape 
Dim btLeft As Double, btTop As Double, btWidth As Double, _ 
    btHeight As Double, btFontSize As Double 
Dim btCell As Range 

'## Put this block of code before your existing code: 
Set btn = ActiveSheet.Shapes("Button 3") '## Modify to your button name 
With btn 
    btLeft = .Left 
    btTop = .Top 
    btHeight = .Height 
    btWidth = .Width 
    'btFontSize = TextFrame2.TextRange.Font.Size 
    'Set btCell = btn.TopLeftCell 
End With 

'Your code goes here: 
' 
' 
' 
'End of your code 

'## Put this block of code before the Exit Sub statement/after your existing code 
With btn 
    '.TopLeftCell = btCell 
    '.TextFrame2.TextRange.Font.Size = btnFontSize 
    .Left = btLeft 
    .Top = btTop 
    .Height = btHeight 
    .Width = btWidth 
End With