VBA右對齊

Question

我試圖在Excel中的打印區域的右側插入一個標誌。鑑於這是隻有TOP和左參考，我已經嘗試以下內容：

Private Sub InsertLogo(Name As String) 

    Dim MyPic As Shape 
Dim MyLeft As Single, MyTop As Single 

FilePath = FolderPath + Name + ".png" 

If Not Dir(FilePath) <> "" Then 

MsgBox ("No logo exists for " & Name & " in Logos. Save the logo as .png file in the logo folder as " & Name & ".") 
Exit Sub 
End If 

MyTop = MySht.[y7].Top 
MyLeft = MySht.[y7].Left - MyPic.Width 

Set MyPic = MySht.Shapes.AddPicture(FilePath, _ 
      msoFalse, msoTrue, MyLeft, MyTop, -1, -1) 

任何人有任何建議該怎麼辦？

Answer 1

替換這些行：

MyTop = MySht.[y7].Top 
MyLeft = MySht.[y7].Left - MyPic.Width 
Set MyPic = MySht.Shapes.AddPicture(FilePath, _ 
      msoFalse, msoTrue, MyLeft, MyTop, -1, -1) 

有了這些：

With MySht.[y7] 
    Set MyPic = .Worksheet.Shapes.AddPicture(FilePath, _ 
     msoFalse, msoTrue, .Left, .Top, -1, -1) 
End With 
With MyPic 
    .Left = .Left - .Width 
End With