CONTAR IMAGENS EM PLANILHAS
Olá Fábio tudo bem,
Na minha planilha além dos controles imagens tem vários commandbuttons e este código que você postou está contando justamente os commandbuttons.
é o seguinte: na planilha tem 60 images, 30 do lado esquerdo e 30 do lado direito. Eu queria contasse separadamente, ou seja, a medida que eu fosse inserido imagem nos image[ô]s do lado esquerdo fosse contando em um textbox e da mesma forma quando eu fosse inserindo imagem nos image[ô]s da esquerda fosse contado em outro textbox. Acho que é isso..rs..rs...
Obrigado
Na minha planilha além dos controles imagens tem vários commandbuttons e este código que você postou está contando justamente os commandbuttons.
é o seguinte: na planilha tem 60 images, 30 do lado esquerdo e 30 do lado direito. Eu queria contasse separadamente, ou seja, a medida que eu fosse inserido imagem nos image[ô]s do lado esquerdo fosse contando em um textbox e da mesma forma quando eu fosse inserindo imagem nos image[ô]s da esquerda fosse contado em outro textbox. Acho que é isso..rs..rs...
Obrigado
Cara dá para postar essa sua planilha? Pode ficar mais facil de visualizar o problema e identificar o tipo de controle image q vc esta usando.
Taà o arquivo. Qualquer dúvida é só dizer.
Pablo, acho q é isso q vc quer, se não é chega perto. Primeiro vc vai ter q dar um nome para cada objeto nas coluna 1 e 2, ou seja,
Coluna 1
Img1
img2
img....
Coluna 2
Imf1
Imf2
Imf....
isso porque no VBA não tem como criar array dos objetos, somente em rum time mas é muito codigo. Vê ae se ajuda.
Coluna 1
Img1
img2
img....
Coluna 2
Imf1
Imf2
Imf....
isso porque no VBA não tem como criar array dos objetos, somente em rum time mas é muito codigo. Vê ae se ajuda.
IRENKO, obrigado pelo exemplo, realmente chega perto. Vc viu o exemplo que te mandei? Daria pra usar da mesma forma? Infelizmente não sei trabalhar com array.
Então faça uma pequena adaptação;
Public Function ContarImagens() As Integer
Dim shtBdImg As Worksheet
Dim objShapes As OLEObjects
Dim objShape As OLEObject
Dim iPicture As IPictureDisp
Dim intCount As Integer
Set shtBdImg = ThisWorkbook.Sheets(Plan1.Name)
Set objShapes = shtBdImg.OLEObjects
For Each objShape In objShapes
Set iPicture = objShape.Object.Picture
If TypeName(objShape) = [Ô]Image[Ô] Then
If Not iPicture Is Nothing Then
intCount = intCount + 1
End If
End If
Next
ContarImagens = intCount
Set objShapes = Nothing
Set objShape = Nothing
Set shtBdImg = Nothing
End Function
Public Function ContarImagens() As Integer
Dim shtBdImg As Worksheet
Dim objShapes As OLEObjects
Dim objShape As OLEObject
Dim iPicture As IPictureDisp
Dim intCount As Integer
Set shtBdImg = ThisWorkbook.Sheets(Plan1.Name)
Set objShapes = shtBdImg.OLEObjects
For Each objShape In objShapes
Set iPicture = objShape.Object.Picture
If TypeName(objShape) = [Ô]Image[Ô] Then
If Not iPicture Is Nothing Then
intCount = intCount + 1
End If
End If
Next
ContarImagens = intCount
Set objShapes = Nothing
Set objShape = Nothing
Set shtBdImg = Nothing
End Function
Fábio, eu postei a planilha em que estou querendo as modificações logo acima. Tem como vc dar uma olhada, por favor? Pois usei a função que vc postou e chamei no evento initialize do userform , só que não tá adiantando. Devo tá fazendo alguma coisa errada com certeza.
Obrigado
Obrigado
Tópico encerrado , respostas não são mais permitidas