插入圖片在活動單元格

Sub InsertLogo1() 
    ActiveCell.Select 
    ActiveSheet.Pictures.Insert("Path").Select 
End Sub

來源

2014-01-22 user3224188

上面的代碼activecell不會插入圖片不粘貼在剛插入它的左上角或活動工作表。這個問題只發生在Excel 2007上。請告知 – user3224188

Dim Pic As Object 
Set Pic = ActiveSheet.Pictures.Insert(Directory & "\" & filename) 
With Pic 
    .Top = ActiveCell.Top 
    .Left = ActiveCell.Left 
    .LockAspectRatio = msoTrue 
    .Width = 225# 
End With

來源

2014-01-22 16:08:36

它正在我的機器上工作，但仍需要在另一臺機器上進行測試。將明天確認。感謝您的提示最初回答 – user3224188

您一直歡迎......我也是堆棧溢出的新手，我喜歡幫助人們：）...祝您有美好的一天！ –

插入圖片在活動單元格

回答

相關問題