정의 폼 (엑셀 VBA)에서 워크 시트에 이미지를 추가

나는 사용자가 드라이브를 통해 검색하고 (예 : 로고) 사진을 선택할 수있는 찾아보기 버튼을 사용하여 사용자 정의 폼을 선택된 그림은 사용자 폼의 이미지 상자에 저장됩니다. 제출 버튼을 선택하면 사용자가 이미지 상자에서 선택한 "그림"을 가져 와서 시트의 특정 위치에 삽입하고 싶습니다. 이 작업을 수행 할 수있는 경우정의 폼 (엑셀 VBA)에서 워크 시트에 이미지를 추가

Sub Image9_Click() 

'' Submit Button 

Dim sld As Worksheet 
Set sld = Sheets("Sliders") 

Dim logo As Image 
logo = colourForm.Image1 

Call updateAllColScheme ''Ignore this 

colourForm.Hide 

End Sub

이 전혀 오류가 발생대로 작동하지 않습니다는, 아는 사람 있나요 : 이것은 내가 지금까지 가지고 무엇인가?

출처

2016-08-31 James Baker

는 "이 오류가 발생합니다"매우 유용한 문제 설명이 아닌 텍스트 상자를 추가

간단합니다. * 어떤 오류가 발생했으며 코드의 어느 줄에 오류가 있습니까? –

이미지 파일의 경로와 이름이 이미 있습니다. (사용자 입력에서)'ThisWorkbook.Worksheets (3) .Pictures.Insert ("File Path Here")'를 사용하지 않으시겠습니까? – Kyle

'SavePicture Me.ControlName.Picture, Filename','activesheet.pictures.insert (filename)'사용을 고려 했습니까? –

-1

단지 (정의 폼에 보이지 않을 수 있습니다) 프로그램에서

Private Sub BrowseButton_Click() 

Dim strFileName As String 

use GetOpenFilename Method to select picture 
strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False) 

TextBox1 = strFileName 'use to save URL or Link from picture 

If strFileName = "False" Then 
    MsgBox "File Not Selected!" 
    Else 
    'load picture to Image control, using LoadPicture property 
    Me.Image1.Picture = LoadPicture(strFileName) 
    'after any change vba has to be told to refresh the UserForm for the change to appear 
    Me.Repaint 
    'label caption changes after picture is loaded 
    Me.Label1.Caption = "Logo loaded" 
End If 

End Sub

출처

2018-02-20 11:16:06 Miguel

정의 폼 (엑셀 VBA)에서 워크 시트에 이미지를 추가

답변

관련 문제