VBA右揃え

Question

私はExcelの印刷領域の右側にロゴを挿入しようとしています。これがTOPとLeftの参照のみで行われていることを考えて、私は以下を試しました：

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