VBA UserForm Get Filename

두 개의 CommandButton으로 구성된 UserForm을 구성했습니다. 각 UserButton에는 Picture가 포함되어 있습니다. 사용자는 두 CommandButton 중 하나를 선택하도록 요청받습니다. 사진의 파일 이름을 워크 시트의 셀에 복사하도록 선택했습니다. 순간 나는 사진의 파일 이름을 얻는 방법을 알아낼 수 없습니다 그래서 내가 수동으로 같은 각 명령 단추에 대한 파일 이름을 삽입 한 : 그래서VBA UserForm Get Filename

Private Sub cmdQ2Opt1_Click() 
    Worksheets("UserQuestionnaire").Range("C4").Value = "242.216.490" 
End Sub 

Private Sub cmdQ2Opt2_Click() 
    Worksheets("UserQuestionnaire").Range("C4").Value = "354.129.401" 
End Sub

가 어떻게이 문제를 코딩 할 수 있습니다 VBA 자동으로 복사 그림의 파일 이름?

미리 도움을 청하십시오!

출처

2014-09-16 Nat Aes

양식 디자이너에 그림을 할당하면 통합 문서 내의 저장소에서 이미지가 연속적으로로드 될 때 경로가 저장되지 않습니다.

런타임에로드 할 경로를 유지하려면 다음의가 클릭하면 다음 그것을 다시 읽어

commandbutton1.Tag = path

: 그런 다음 버튼에 Tag 속성을 경로를 저장할 수 있습니다

dim path As string 
path = "C:\...\foo.jpg" 
set commandbutton1.Picture = loadpicture(path)

을

ActiveWorkbook.Sheets("UserQuestionnaire").Range("C4").Value = commandbutton1.Tag

출처

2014-09-16 16:03:47

감사합니다. 저는 VBA에 약간 새로운 것입니다. 그래서 당신이 내게 어떤 것인지 분명히 말 해주세요. '런타임시로드'기준? 이 코드를 일반 개인 서브 클래스로 클래스 모듈, 모듈 또는 사용자 정의 폼 코드에 적용 할 수 있습니까? –

버튼 속성 창에서 이미지 파일을 탐색하여 단추에 그림을 넣으면 나중에 다른 곳에서 사용할 수 있도록 경로를 가져올 수 없으므로 필요할 때 단추에 그림을로드합니다. 사용자 폼의 initialize 이벤트) –

알기. 고맙습니다. 파일 경로를 참조하지 않고 대신 파일에 그림을 포함시키는 방법이 있습니까? 특정 경로를 언급하면 경로에 대한 액세스 권한이없는 다른 사용자에게 파일을 전송할 때 버튼이 작동하지 않는다는 점을 염려합니다. –

VBA UserForm Get Filename

답변

관련 문제