Nesne ekleme

[muyat]

Makro ile nesne eklemek istiyorum..
Yapmak istedigim şey:Ekle-Nesne -dosyadan oluştur-gözat-masaüstünün açılması
Aşgıdaki kodla sadece Nesne sayfasını açabildim.Yardımcı olurmusunuz?Kodu yazdıgım zaman yukardaki sıralamaya göre hızlı bir şekilde masaüstü açılsın ve ordan seçiyim istiyorum

Sub Dialog_41()
Application.Dialogs(xlDialogInsertObject).Show
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod satırı ile yapabilirsiniz.

ActiveSheet.OLEObjects.Add(Filename:=Application.GetOpenFilename, Link:=False, DisplayAsIcon:=False).Select

Link olarak eklemek için: Link:=True yapın.
İkon olarak eklemek için: DisplayAsIcon:=True yapın

 

[turist]

Sub MASAUSTU()
Dim DosyaAc As FileDialog
Set DosyaAc = Application.FileDialog(msoFileDialogFilePicker)
With DosyaAc
.AllowMultiSelect = False
.ButtonName = "Select"
.InitialView = msoFileDialogViewList
.Title = "SEÇİNİZ"
.InitialFileName = Environ("USERPROFILE") & "\Desktop"
With .Filters
.Clear
.Add "All Files", "*.*"
End With
.FilterIndex = 1
.Show
End With
If DosyaAc.SelectedItems.Count > 0 Then
Dim secilen As String
secilen = DosyaAc.SelectedItems(1)
MsgBox secilen
End If
End Sub

MsgBox secilen
satırında ne yapmak istiyorsanız ona ait kod yazılacaktır.

 

[heft]

Merhaba
Aynı paralel durumda seçilen dosyanın "C nin altındaki deneme kalasörünün altına" den adıyla kaydetmesini sağlayabilir miyiz?

Yani dosya seçildikten sonra seçilen dosya C\deneme klasörü altına den adıyla kopyalanacak.

 

[heft]

Merhaba
Konuyu hatırlatmak istedim, günceldir.