Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
Private Sub CommandButton2_Click() Dim openDialog As Office.FileDialog Dim FName As String Set openDialog = Application.FileDialog(msoFileDialogFilePicker) openDialog.Filters.Clear openDialog.Filters.Add "JPEG Files", "*.jpg" With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .ButtonName = "Submit" .Title = "Select an image file" .Filters.Add "Image", "*.gif; *.jpg; *.jpeg", 1 If .Show = -1 Then Me.Image1.PictureSizeMode = fmPictureSizeModeZoom Me.Image1.Picture = LoadPicture(.SelectedItems(1)) Me.Repaint FName = openDialog.SelectedItems(1) Sheets("SoftwareParameters").Range("LogoGraphic") = FName Else End If End With End Sub Private Sub userForm_Initialize() Me.Image1.Picture = LoadPicture(Sheets("SoftwareParameters").Range("LogoGraphic")) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.