userforma farklı kaydet tuşu eklemek Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Userformunuza atayacağınız bir command button'a yazacağınız; 
Kod: 
  
Dim iChartType As Long

Private Sub UserForm_Activate()

'Initialise the selections 
cb3D = True 
obColumn = True 
obBitmap = True

End Sub

Private Sub btnOK_Click() 
Unload Me 
End Sub

Private Sub cb3D_Click() 
Select Case True 
Case obColumn 
    obColumn_Click 
Case obLine 
    obLine_Click 
Case obArea 
    obArea_Click 
End Select 
End Sub

Private Sub obColumn_Click() 
iChartType = IIf(cb3D, xl3DColumn, xlColumnClustered) 
UpdateChart 
End Sub

Private Sub obLine_Click() 
iChartType = IIf(cb3D, xl3DLine, xlLine) 
UpdateChart 
End Sub

Private Sub obArea_Click() 
iChartType = IIf(cb3D, xl3DArea, xlArea) 
UpdateChart 
End Sub

Private Sub obBitmap_Click() 
UpdateChart 
End Sub

Private Sub obMetafile_Click() 
UpdateChart 
End Sub

Private Sub UpdateChart()

Dim oCht As Chart, lPicType As Long

'Find the chart object on the sheet 
Set oCht = Sheet1.ChartObjects(1).Chart

'Recalculate the sheet to give us a new set of random points 
Sheet1.Calculate

'Do we want a metafile or a bitmap? 
'If doing a 1 to 1 copy, xlBitmap will give a 'truer' rendition. 
'If scaling the image, xlPicture will give better results 
lPicType = IIf(obMetafile, xlPicture, xlBitmap)

'Update the chart type and copy it to the clipboard, as seen on screen 
With oCht 
    .ChartType = iChartType 
    .CopyPicture xlScreen, lPicType, xlScreen 
End With

'Paste the picture from the clipboard into our image control 
Set imgChtPic.Picture = PastePicture(lPicType)

End Sub

Private Sub btnSave_Click()

Dim vFile As Variant, sFilter As String, lPicType As Long, oPic As IPictureDisp

'Create an appropriate filter, based on the bitmap/picture option in the dialog 
sFilter = IIf(obMetafile, "Windows Metafile (*.emf),*.emf", "Windows Bitmap (*.bmp),*.bmp")

'Get the filename to save the bitmap to 
vFile = Application.GetSaveAsFilename(initialfilename:="", filefilter:=sFilter)

If vFile  False Then 
    'Get the type of bitmap 
    lPicType = IIf(obMetafile, xlPicture, xlBitmap)

'Copy a picture on the chart with the correct format to the clipboard 
    Sheet1.ChartObjects(1).Chart.CopyPicture xlScreen, lPicType, xlScreen

'Retrieve the picture from the clipboard... 
    Set oPic = PastePicture(lPicType)

'... and save it to the file 
    SavePicture oPic, vFile 
End If

End Sub  
 -

Benzer Sonuçlar
No	Makro Adı
1	userforma farklı kaydet tuşu eklemek
2	userforma farklı kaydet tuşu
3	forma otomatik resim getirme
4	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
5	"Farklı Kaydet" kutusunu göstermek ve farklı kaydetmek (Dialog Penceresi)
6	farklı kaydet ve sağ klik tuşunu disable yapma
7	dosyayı farklı şekillerde kaydetme
8	kullanıcı adı ve parola eklemek
9	hücredeki yazi karakterinin rengine göre filtreleme
10	userform'u otomatik boyutlandırma
11	save as (farklı kaydet)
12	"Farklı kaydet" işlemi
13	Birden Çok Sütun Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz sütun sayısını girmeniz gerekiyor.
14	Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.
15	Birden Çok Çalışma Sayfası Ekle: İş kitabınızda tek bir puntoda birden çok çalışma sayfası eklemek istiyorsanız bu kodu kullanabilirsiniz. Bu makro kodunu çalıştırdığınızda, girmek istediğiniz toplam sayfa sayısını girmek için bir giriş kutusu alırsınız.
16	Farklı sayfalara tek seferde sütun eklemek
17	makrolar kutusu ve makrolar görünsün
18	nesne özelliğini tek seferde değiştirme
19	userform bekletmeli açılış
20	işgünlerine ait sheet açmak.

Benzer Sonuçlar

Makro Adı

userforma farklı kaydet tuşu eklemek

userforma farklı kaydet tuşu

forma otomatik resim getirme

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

"Farklı Kaydet" kutusunu göstermek ve farklı kaydetmek (Dialog Penceresi)

farklı kaydet ve sağ klik tuşunu disable yapma

dosyayı farklı şekillerde kaydetme

kullanıcı adı ve parola eklemek

hücredeki yazi karakterinin rengine göre filtreleme

userform'u otomatik boyutlandırma