ragnorak
Altın Üye
- Katılım
- 4 Haziran 2016
- Mesajlar
- 204
- Excel Vers. ve Dili
- Excel 2021
- Altın Üyelik Bitiş Tarihi
- 03-09-2026
Kod:
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Select an image file"
.Filters.Clear
.Filters.Add "JPG", "*.JPG"
.Filters.Add "JPEG File Interchange Format", "*.JPEG"
.Filters.Add "Graphics Interchange Format", "*.GIF"
.Filters.Add "Portable Network Graphics", "*.PNG"
.Filters.Add "Tag Image File Format", "*.TIFF"
.Filters.Add "All Pictures", "*.*"
If .Show = -1 Then
Dim img As Object
Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))
With Selection
img.Top = .Top
img.Width = .Width
img.Height = .Height
img.Left = .Left + (.Width - img.Width) / 2
img.Placement = xlMoveAndSize
End With
Else
End If
End With
End Sub