Notifications

Clear all

Álbum de fotos

2024 - VBA & Macros

Post Recente por FOXRJ 8 anos atrás

7 Posts

3 Usuários

0 Reactions

1,400 Visualizações

RSS

FOXRJ

(@foxrj)

Posts: 17

Active Member

Topic starter

Prezados,

Estou pensando em montar um álbum de fotos de maneira que para um determinado local possam ter várias fotos.

Pesquisei na internet e achei muito pouca coisa a respeito. Achei este link ( http://www.macoratti.net/15/10/vba_vimg1.htm ), mas ele informa que é necessário incluir caixa de diálogo, usando Microsoft Common Dialog Control, version 6. Pelo que li, este componente só está disponível para pacote de 32bits, não havendo disponibilidade para 64bits.

Assim, gostaria de verificar com vocês se existe outro modo de montar este álbum de fotos ou outra forma de ativar o componente para sistema 64bits.

Abraços e obrigado.

Postado : 13/07/2016 10:25 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Veja se o Tópico abaixo ajuda :

visualizador Imagens FSO Recursiva [Resolvido]
viewtopic.php?f=10&t=16572

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 13/07/2016 11:14 am

FOXRJ

(@foxrj)

Posts: 17

Active Member

Topic starter

vou tentar entender a planilha.... VALEUUUUUU

Sempre procurei album de fotos... por isso não achei...

Postado : 13/07/2016 4:42 pm

FOXRJ

(@foxrj)

Posts: 17

Active Member

Topic starter

Pois é... tentei abrir.... mesmo com uma grande demora... de cara deu erro

Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

meu Excel é 64bits

Postado : 13/07/2016 4:43 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Pois é... tentei abrir.... mesmo com uma grande demora... de cara deu erro
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
meu Excel é 64bits

Eu não tenho a v64 para ajudar, mas de acordo com a MS ela tem de sr substituida, de uma olhada e veja se consegue, ou aguardaremos algum colega que tenha esta versão para ajudar, mas é só pesquisar no google que encontrara varias referencias:

SetClassLong function
" https://msdn.microsoft.com/pt-br/library/windows/desktop/ms633588(v=vs.85).aspx"

Replaces the specified 32-bit (long) value at the specified offset into the extra class memory or the WNDCLASSEX structure for the class to which the specified window belongs.
Substitui o valor especificado de 32 bits (de comprimento) no deslocamento especificado para a memória extra classe ou a estrutura WNDCLASSEX para a classe à qual pertence a janela especificada.

Note This function has been superseded by the SetClassLongPtr function. To write code that is compatible with both 32-bit and 64-bit versions of Windows, use SetClassLongPtr.
Nota Esta função foi substituída pela função SetClassLongPtr. Para escrever código que é compatível com ambas as versões do Windows de 32 bits e 64 bits, use SetClassLongPtr.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 13/07/2016 6:42 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Como já descrito pelo Mauro, para poder rodar em 64 bits, com a forma antiga fica:

Public Declare PtrSafe Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Que foi substituida por:

Public Declare PtrSafe Function SetClassLongPtr Lib "user32" Alias "SetClassLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

Testei aqui (Excel 2016x64) e ambas funcionam. (obs.: só testei a declaração da API, mais nada, ok?).