Aşagıda belirtigim makro kodunu kullanarak excelde hücre içerisine resim eklemeyi gerçekleştirdim.
Fakat sebebini bilemedigim bir şekilde hücredeki açıklamanın çerçeve ölçüsü degişmeye başladı.
Açıklamanın boyutu enine büyüdü. Bu durum açıklamada yer alan resim görüntüsünü de bozdu.
Sonuç olarak açıklamadaki resim ölçülerini tekrar nasıl düzeltebilirim. Lütfen yardımcı olunuz.
Bundan sonraki hücreye resim eklemelerde bu hatayı gidermek için makroda bir degişiklik yapmak gerekir mi?
Sub AAARESİMEKLE()
Dim HasCom
Dim Pict As String
Dim Ans As Integer
Set HasCom = ActiveCell.Comment
If Not HasCom Is Nothing Then ActiveCell.Comment.Delete
Set HasCom = Nothing
GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
'Note you can load in, almost any file format
If Pict = "False" Then End
Ans = MsgBox("Open : " & Pict, vbYesNo + vbExclamation, "Use this Picture?")
If Ans = vbNo Then GoTo GetPict
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.Transparency = 0#
.Comment.Shape.Fill.UserPicture Pict
End With
End Sub
Fakat sebebini bilemedigim bir şekilde hücredeki açıklamanın çerçeve ölçüsü degişmeye başladı.
Açıklamanın boyutu enine büyüdü. Bu durum açıklamada yer alan resim görüntüsünü de bozdu.
Sonuç olarak açıklamadaki resim ölçülerini tekrar nasıl düzeltebilirim. Lütfen yardımcı olunuz.
Bundan sonraki hücreye resim eklemelerde bu hatayı gidermek için makroda bir degişiklik yapmak gerekir mi?
Sub AAARESİMEKLE()
Dim HasCom
Dim Pict As String
Dim Ans As Integer
Set HasCom = ActiveCell.Comment
If Not HasCom Is Nothing Then ActiveCell.Comment.Delete
Set HasCom = Nothing
GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
'Note you can load in, almost any file format
If Pict = "False" Then End
Ans = MsgBox("Open : " & Pict, vbYesNo + vbExclamation, "Use this Picture?")
If Ans = vbNo Then GoTo GetPict
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Shape.Fill.Transparency = 0#
.Comment.Shape.Fill.UserPicture Pict
End With
End Sub