Secilen Resmi Comment`e Koymak

Ornekte gordugunuz uzere resmimizi commentin icerisine gondermek icin yaptigimiz bir calisma,

Sub Resim_commente()

Dim sema As ChartObject

Dim dGenislik As Double

Dim dYukseklik As Double

Dim Calisma_Sayfasi As Worksheet

Dim Metin As String

Dim yrm As Comment

Dim Dosya_Yolu As String

Dim Dosya_Adi As String

Dim Aralik As Range

Set Calisma_Sayfasi = ActiveSheet

Set Aralik = ActiveCell

Dosya_Yolu = ThisWorkbook.Path & ""

Metin = InputBox("Resim Dosyasi Icin Ad (Dosya Uzantisi Olmadan)", "Dosya Adi")

If Metin = "" Then Metin = "Resim_" & Format(Date, "yyyymmdd")

Dosya_Adi = Dosya_Yolu & Metin & ".gif"

dGenislik = Selection.Width

dYukseklik = Selection.Height

Selection.Cut

Set sema = Calisma_Sayfasi.ChartObjects.Add(Left:=Aralik.Left, Top:=Aralik.Top, _

Width:=dGenislik, Height:=dYukseklik)

sema.Chart.Paste

Aralik.Activate

sema.Chart.Export Dosya_Adi

sema.Delete

Set yrm = Aralik.AddComment

yrm.Text Text:=""

With yrm.Shape

.Fill.UserPicture Dosya_Adi

.Width = dGenislik

.Height = dYukseklik

End With

End Sub
bu konu comment - Yorum haftasi etkinligi dolayisiyla acilmistir..

Resim Commente

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 1 =