execl VBA宏

 1 设置图片为默认大小:

Sub 修改图片()
  Dim ws As Worksheet
  Dim pic As Picture
  Dim originalTop As Double
  Dim originalLeft As Double
  
  ' 设置工作表
  ' Set ws = ThisWorkbook.Sheets("2. Discharg State") ' 更改为你的工作表名称
  
  ' 确保有选择图片
  If Not TypeName(Selection) = "Picture" Then
    MsgBox "请先选择一张图片。", vbExclamation
    Exit Sub
  End If
  
  ' 记录图片的原始位置
  originalTop = Selection.Top
  originalLeft = Selection.Left
  
  ' 设置图片大小
  Selection.ShapeRange.Height = 350
  Selection.ShapeRange.Width = 400
  
  ' 将图片移回原来的位置
  Selection.Top = originalTop
  Selection.Left = originalLeft
End Sub

2 如何让宏能在所有excel里使用

如何在 Excel 的所有工作簿中保存和使用 VBA 宏？ (extendoffice.com)