Home Excel - Downloads / Areas Restritas Excel VBA - Shapes e Imagens

Excel VBA - Shapes e Imagens

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba shapes verifica existencia shapes retorna endereco vba shapes verifica existencia shapes retorna endereco

    popular!
    Adicionado em: 18/02/2011
    Modificado em: 18/02/2011
    Tamanho: Vazio
    Downloads: 739

    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

    vba shapes seleciona todos objetos na planilha vba shapes seleciona todos objetos na planilha

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: Vazio
    Downloads: 1297

    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.



    vba shapes macro agrupa todos os shapes vba shapes macro agrupa todos os shapes

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: Vazio
    Downloads: 1023


    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




    vba shapes insere imagem liga macro vba shapes insere imagem liga macro

    popular!
    Adicionado em: 26/02/2011
    Modificado em: 26/02/2011
    Tamanho: Vazio
    Downloads: 1467

    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



    vba shapes deleta todos os objetos na folha de planilha vba shapes deleta todos os objetos na folha de planilha

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: Vazio
    Downloads: 1138

    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





    Página 1 de 3

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA