在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