Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Enviar imagen al fondo (detras del texto) y poner borde solido de color

Visual Basic - Enviar imagen al fondo (detras del texto) y poner borde solido de color

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de daxtrox
Val: 1
Ha disminuido su posición en 60 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar imagen al fondo (detras del texto) y poner borde solido de color

Publicado por daxtrox (7 intervenciones) el 14/08/2021 13:50:04
Estoy realizando una macro que me inserte imagenes en power point (Este punto esta listo), pero necesito que las imagenes queden en el fondo (por detras de las letras) y tengan un borde solido de color, aun no logro realizar esta accion.

Les adjunto el codigo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
Sub ajustar2()
 
 
    'imagenes diapo 3'
 
    Set imagen1 = ActivePresentation.Slides(3)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\1.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=50, Width:=220, Height:=128
 
    Set imagen2 = ActivePresentation.Slides(3)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\1_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=50, Width:=231, Height:=128
 
    Set imagen3 = ActivePresentation.Slides(3)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\1_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=50, Width:=231, Height:=128
 
    Set imagen4 = ActivePresentation.Slides(3)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\2.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=218, Width:=220, Height:=128
 
    Set imagen5 = ActivePresentation.Slides(3)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\2_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=218, Width:=231, Height:=128
 
    Set imagen6 = ActivePresentation.Slides(3)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\2_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=218, Width:=231, Height:=128
 
    'imagenes diapo 4'
 
    Set imagen1 = ActivePresentation.Slides(4)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\3.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=50, Width:=220, Height:=128
 
    Set imagen2 = ActivePresentation.Slides(4)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\3_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=50, Width:=231, Height:=128
 
    Set imagen3 = ActivePresentation.Slides(4)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\3_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=50, Width:=231, Height:=128
 
    Set imagen4 = ActivePresentation.Slides(4)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\4.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=218, Width:=220, Height:=128
 
    Set imagen5 = ActivePresentation.Slides(4)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\4_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=218, Width:=231, Height:=128
 
    Set imagen6 = ActivePresentation.Slides(4)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\4_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=218, Width:=231, Height:=128
 
    'imagenes diapo 5'
 
    Set imagen1 = ActivePresentation.Slides(5)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\5.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=50, Width:=220, Height:=128
 
    Set imagen2 = ActivePresentation.Slides(5)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\5_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=50, Width:=231, Height:=128
 
    Set imagen3 = ActivePresentation.Slides(5)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\5_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=50, Width:=231, Height:=128
 
    Set imagen4 = ActivePresentation.Slides(5)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\6.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=218, Width:=220, Height:=128
 
    Set imagen5 = ActivePresentation.Slides(5)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\6_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=218, Width:=231, Height:=128
 
    Set imagen6 = ActivePresentation.Slides(5)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\SUR\6_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=218, Width:=231, Height:=128
 
    'imagenes diapo 6'
 
    Set imagen1 = ActivePresentation.Slides(6)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\7.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=50, Width:=220, Height:=128
 
    Set imagen2 = ActivePresentation.Slides(6)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\7_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=50, Width:=231, Height:=128
 
    Set imagen3 = ActivePresentation.Slides(6)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\7_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=50, Width:=231, Height:=128
 
    Set imagen4 = ActivePresentation.Slides(6)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\8.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=218, Width:=220, Height:=128
 
    Set imagen5 = ActivePresentation.Slides(6)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\8_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=218, Width:=231, Height:=128
 
    Set imagen6 = ActivePresentation.Slides(6)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\8_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=218, Width:=231, Height:=128
 
    'imagenes diapo 7'
 
    Set imagen1 = ActivePresentation.Slides(7)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\9.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=50, Width:=220, Height:=128
 
    Set imagen2 = ActivePresentation.Slides(7)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\9_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=50, Width:=231, Height:=128
 
    Set imagen3 = ActivePresentation.Slides(7)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\9_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=50, Width:=231, Height:=128
 
    Set imagen4 = ActivePresentation.Slides(7)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\10.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=218, Width:=220, Height:=128
 
    Set imagen5 = ActivePresentation.Slides(7)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\10_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=218, Width:=231, Height:=128
 
    Set imagen6 = ActivePresentation.Slides(7)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\10_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=218, Width:=231, Height:=128
 
    'imagenes diapo 8'
 
    Set imagen1 = ActivePresentation.Slides(8)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\9.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=50, Width:=220, Height:=128
 
    Set imagen2 = ActivePresentation.Slides(8)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\9_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=50, Width:=231, Height:=128
 
    Set imagen3 = ActivePresentation.Slides(8)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\9_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=50, Width:=231, Height:=128
 
    Set imagen4 = ActivePresentation.Slides(8)
    imagen1.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\10.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=10, Top:=218, Width:=220, Height:=128
 
    Set imagen5 = ActivePresentation.Slides(8)
    imagen2.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\10_V.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=235, Top:=218, Width:=231, Height:=128
 
    Set imagen6 = ActivePresentation.Slides(8)
    imagen3.Shapes.AddPicture FileName:="D:\INFORMES\DIARIO\NORTE\10_D.png", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
        Left:=470, Top:=218, Width:=231, Height:=128
 
 
 
    End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder