Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), verificam na folha de planilha excel se existe ou não shapes, caso existe retorna uma mensagem informando o endereço das células onde estão localizadas, caso não exista, emite uma mensagem da inexistência de shapes e ou imagem na folha de planilha.

Sub verifica_se_existe_imagem_na_panilha_I()
Dim vLocal$, Shp As Shape, c%
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoPicture Then
vLocal = vLocal & Shp.TopLeftCell.Address & " : " & Shp.Name & vbCrLf
c = 1
End If
Next
If c = 1 Then
MsgBox "Células que contém imagens são:" & vbCrLf & "[" & vLocal & "]", _
vbInformation, "Saberexcel - site das macros"
Else
MsgBox "Não há imagens nesta folha de planilha!", _
vbInformation, "Saberexcel - site das macros"
End If
End Sub


Essa macro também verifica se há shapes(autoformas ou imagens) e retorna uma msg, indicando o endereço das células que contém as imagem
Sub verifica_se_existe_imagem_na_panilha_II()
Dim Shp As Shape, vArea As Range
For Each Shp In ActiveSheet.Shapes
If vArea Is Nothing Then
Set vArea = Shp.TopLeftCell
Else
Set vArea = Union(vArea, Shp.TopLeftCell)
End If
Next Shp
MsgBox "Há imagems shapes(autoformas) nas células : [ " & vArea.Address(0, 0) & " ]", _
vbInformation, "Saberexcel - site das macros"
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Essa macro do aplicativo Microsoft Excel VBA, seleciona todos
os objetos shapes(desenho) na folha de planilha

Sub Selecionar_todos_objetos()
On Error Resume Next
ActiveSheet.DrawingObjects.Select
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel
em casa, sozinho, com baixo custo.

Essa macro do Aplicativo Microsoft Excel VBA, agrupam shapes na planilha ativa, isto é, a medida em que for inserindo autoformas(shapes), a macro
vai agrupando.

Sub Agrupando_shapes()
On Error Resume Next
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Group.Select
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel

Saberexcel - site das macros

Essa macro do Aplicativo microsoft Excel VBA(Visual Basic Application), abre a caixa de diálogo Abrir e insere um shapes(autoforma) na folha de planilha ligada automaticamente a um macro, como mostra macros abaixo.


Sub Abre_determinada_imagens()
On Error Resume Next ' caso nao selecione nada
vCaminho = Application.GetOpenFilename("Planilhas imagens - Saberexcel (*.jpg;*.jpeg;*.gif), *.jpg;*.gif;*.jpeg,Todas (*.*), *.*", Empty, "Adicionar Imagem", Empty, Empty)
ActiveSheet.Pictures.Insert(vCaminho).Select
Selection.ShapeRange.AlternativeText = vCaminho
Selection.Name = "sbx"
Selection.OnAction = "Clic_imagem"

End Sub

Sub Clic_imagem()
MsgBox ("Imagem inserida e ligada à um macro"), vbInformation, "Saberexcel - site das macros"
End Sub



Aprenda tudo sobre o Aplicativo microsoft Excel VBA(Visual Basic Application), praticando com os produtos didáticos Saberexcel

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, deleta todos os objetos shapes de uma determinada folha de planilha.

Sub Deletar_todos_objetos()
On Error Resume Next
Dim vPergunta As Long
vPergunta = MsgBox("Todos objetos em [ " & ActiveSheet.Name _
& " ] será removido. tem certeza que deseja isto? ", vbQuestion + vbYesNo, _
"Saberexcel - o site das macros")

If Not vPergunta = vbYes Then Exit Sub
ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub

Macro auxiliar que copia todos os shapes para planilha principal para serem deletados.
Sub copiar_para_teste()
On Error Resume Next
ActiveSheet.DrawingObjects.Select

Selection.Copy
Sheets("Plan1").Select
Range("H5").Select
ActiveSheet.Paste
Range("J29").Select
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel