✔ Programação GLOBAL®: adicionar

A partir de uma pasta com as respectivas fotos, cada arquivo será o número do empregado. E a dica para visualizar as fotos de modo rápido e dinâmico, decidi colocar cada foto dentro de um comentário, em cada célula. Desse modo, quando passar o número do funcionário, uma janela de comentário aparecerá com a foto.

Mas é claro que desejo que todos usem a criatividade desenvolvendo novas soluções:

- Álbuns de fotos

- Capas dos seus CDs

- Capas da sua Lista de Blue-Rays

- Seus filmes preferidos

- Os livros que mais gosta

- Os produtos da sua empresa que estão sendo mostrados no gráfico imediatamente acima da lista

- As logomarcas das empresas comparadas dentro de um market share

Sub InsertPictures()

Dim cll As Range

Dim rng As Range

Dim strPath As String

Let strPath = "D:\Bernardes\Photos"

With Sheets("Sheet1")

Set rng = Range("A2:A416")

End With

For Each cll In rng

If Dir$(strPath & "\" & cll.Value & ".jpg") <> "" Then

With cll

.ClearComments

.AddComment ("")

.Comment.Shape.Fill.UserPicture (strPath & "\" & cll.Value & ".jpg")

Let .Comment.Shape.Height = 160

Let .Comment.Shape.Width = 120

Let .Comment.Shape.LockAspectRatio = msoTrue

End With

End If

Next cll

End Sub

Tags: VBA, Excel, Tips, cell, célula, photo, insert, comments, comentários, add, adicionar, inserir,

VBA Excel - Adicionando um conteúdo para um módulo a partir de um arquivo - Add content to a module from a file using VBA in Microsoft Excel

Ao efetuar a manutenção de uma aplicação talvez não desejemos importar todo um módulo, mas apenas algumas funcionalidades ou processos deste.

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post.

Selecionamos então as funcionalidades que desejamos e as colamos em um arquivo texto externo. Com o código abaixo somos capazes de importar o arquivo externo, inserindo o código dele no módulos que selecionarmos: ImportModuleCode ActiveWorkbook, "mdl_ExternalCode", "C:\Bernardes\nCodes.txt"

Sub ImportModuleCode (ByVal wb As Workbook, _

   ByVal ModuleName As String, _

   ByVal ImportFromFile As String)

' imports code to ModuleName in wb from a textfile named ImportFromFile

Dim VBCM As CodeModule

   If Dir(ImportFromFile) = "" Then Exit Sub

   On Error Resume Next

   Set VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule

   If Not VBCM Is Nothing Then

   VBCM.AddFromFile ImportFromFile

   Set VBCM = Nothing

   End If

   On Error GoTo 0

End Sub

Reference:

Tags:VBA, Excel, content, add, module, módulo, adicionar, Module, conteúdo, Modules, Class Modules in VBA,

VBA Excel - Adicionando uma Procedure a um módulo - Add a procedure to a module using

Podemos inserir Funções ou Subs em módulos pré-existentes na nossa planilha. Para isso basta que programemos o seguinte código em qualquer evento da nossa planilha:

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post.

InsertProcedureCode Workbooks("WorkBookBernardes.xlsb"), "mdl_Functions_AutomaticInserted"

Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String)

Dim VBCM As CodeModule

Dim InsertLineIndex As Long

   On Error Resume Next

   Set VBCM = wb.VBProject.VBComponents(InsertToModuleName).CodeModule

   If Not VBCM Is Nothing Then

   With VBCM

   Let InsertLineIndex = .CountOfLines + 1

   ' customize the next lines depending on the code you want to insert

   .InsertLines InsertLineIndex, "Sub NewSubName()" & Chr(13)



   Let InsertLineIndex = InsertLineIndex + 1

   .InsertLines InsertLineIndex, _

   " Msgbox ""Olá Mundo!"",vbInformation,"".: Primeira""" & Chr(13)

   Let InsertLineIndex = InsertLineIndex + 1

   .InsertLines InsertLineIndex, "End Sub" & Chr(13)

   ' no need for more customizing

   End With

   Set VBCM = Nothing

   End If

   On Error GoTo 0

End Sub

Reference:

Tags: VBA, Excel, procedure, add, module, módulo, adicionar, Modules, Class Modules in VBA

✔ Programação GLOBAL®

Propósito

Meni

.: Vitrine

Views

VBA Excel Tip - Insira Fotos nos Comentários de cada Célula - Add photos to cells inside comments

VBA Excel - Adicionando um conteúdo para um módulo a partir de um arquivo - Add content to a module from a file using VBA in Microsoft Excel

VBA Excel - Adicionando uma Procedure a um módulo - Add a procedure to a module using